home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / modem.aqm / modem.asm
Assembly Source File  |  1985-06-12  |  56KB  |  2,316 lines
  1. TITLE    MODEM FOR THE RAINBOW 100 SERIES WITH MS/DOS 2.05 +
  2. Page 62,132
  3.  
  4. ;
  5. ;****************************************************************
  6. ;*        M  O  D  E  M   - -   FOR THE RAINBOW        *
  7. ;*                                                              *
  8. ;*    This program was developed from                           *
  9. ;*         MODEM.ASM  (Version 3.0)                             *
  10. ;*         for CP/M to CP/M file transfers                      *
  11. ;*      BY Ward Christensen         (CPM-UG Disk # 25)          *
  12. ;*    Refer to the last section of this source file for         *
  13. ;*    a complete modification history and credits to            *
  14. ;*    those who contributed to this version.                    *
  15. ;*                                                              *
  16. ;*                                                              *
  17. ;*    PLEASE SEND PROBLEM REPORTS AND SUGGESTIONS               *
  18. ;*    TO:     John Chapman                                      *
  19. ;*            844 S. Madison St.                                *
  20. ;*            Hinsdale, Illinois  60521                         *
  21. ;*            Compuserve = 70205,1217                           *
  22. ;*                                *
  23. ;*  This version for the Digital Rainbow 100 computer with    *
  24. ;*      MS-DOS 2.05 + by James V. Colombo Rainbow SWE        *
  25. ;*                                *
  26. ;****************************************************************
  27. ;
  28.     SUBTTL    MACRO DEFINITIONS    
  29.     PAGE
  30. ;
  31. DOSCALL    MACRO    FUNCTION,AREA ;INVOKE DOS SERVICE
  32.     IFNB    <AREA>
  33.     MOV    DX,OFFSET AREA    ;SET PARAMETER OFFSET
  34.     ENDIF
  35.     MOV    AH,FUNCTION    ;DOS FUNCTION CODE
  36.     INT    21H        ;INVOKE DOS SERVICE
  37.     ENDM
  38. ;
  39. PRCHAR    MACRO    CHAR    ;PRINT A CHARACTER
  40.     IFNB    <CHAR>
  41.     MOV    DL,CHAR    ;CHAR TO DL REG
  42.     ENDIF
  43.     DOSCALL    DSPLO    ; DOS PRINT CHARACTER FUNCTION
  44.     ENDM
  45. ;
  46.     SUBTTL    STRUCTURES
  47.     PAGE
  48. ;
  49. CCB    STRUC
  50.  
  51. FUNCTION    DB    0        ; function #
  52. RETURN_CODE    DB    0        ; return code
  53. CHARACTER    DB    0        ; character
  54. CHAR_STATUS    DB    0        ; character status
  55. BUFFER        DB    0        ; CCB or buffer
  56.  
  57. CCB    ENDS
  58. ;
  59.     SUBTTL    EQUATES
  60.     page
  61. ;
  62. ROM    EQU    18H
  63. CR    EQU    13
  64. TAB    EQU    9
  65. LF    EQU    10
  66. PUTCHAR    EQU    11
  67. CANFLG    EQU    0           ;NO CANCEL ABILITY
  68. ;
  69. FASTCLK EQU    0           ;PUT 1 HERE FOR 4 MHZ CLOCK
  70. ERRLIM    EQU    10          ;MAX ALLOWABLE ERRORS
  71. EXITCHR    EQU    'W'-40H         ;CTL-W EXIT FROM T OR C
  72. DISCCHR    EQU    'D'-40H     ;CTL-D DISCONNECTS MODEM T/C
  73. CTLCCHR EQU    'O'-40H        ;CTL-C REPLACEMENT (temporary)
  74. CTLCHAR EQU    03H        ;CTL-C ACTUAL      (temporary)
  75. ; 
  76. ;DEFINE ASCII CHARACTERS USED
  77. ;
  78. SOH    EQU    01H         ;START OF HEADER
  79. EOT    EQU    04H         ;END OF TRANSMISSION
  80. ACK    EQU    06H         ;ACKNOWLEDGE
  81. NAK    EQU    15H         ;NEG ACKNOWLEDGE
  82. CAN    EQU    18H         ;CANCEL
  83. FF    EQU    0CH        ;FORM FEED (clear screen)
  84.     PAGE
  85. ;
  86. ; MS DOS EQUATES
  87. ;
  88. REIPL    EQU    0        ;PROGRAM TERMINATE
  89. RDCON    EQU    1               ;KEYBOARD INPUT
  90. WRCON    EQU    2               ;DISPLAY OUTPUT
  91. PRTCHR    EQU    5        ;PRINTER OUTPUT, CHAR IN DL
  92. DCON    EQU    6               ;DIRECT CONSOLE I/O
  93. PRINT    EQU    9               ;PRINT STRING
  94. CONST    EQU    11          ;CONSOLE STAT
  95. OPEN    EQU    15          ;0FFH=NOT FOUND
  96. CLOSE    EQU    16          ;    "    "
  97. SRCHF    EQU    17          ;    "    "
  98. SRCHN    EQU    18          ;    "    "
  99. ERASE    EQU    19          ;NO RET CODE
  100. READ    EQU    20          ;0=OK, 1=EOF
  101. WRITE    EQU    21          ;0=OK, 1=ERR, 2=?, 0FFH=NO DIR SPC
  102. MAKE    EQU    22          ;0FFH=BAD
  103. REN    EQU    23          ;0FFH=BAD
  104. STDMA    EQU    26          ;SET DMA
  105. FATADDR EQU    27        ;FILE ALLOCATION TABLE ADDRESS
  106. ;
  107. ; d o s   f u n c t i o n s 
  108. ;
  109. DSPLO    EQU    2
  110. PSTRING    EQU    9
  111. DRESET    EQU    0DH    
  112. SELDSK    EQU    0EH
  113. CDISK    EQU    19H
  114. SETDTA    EQU    1AH
  115. SETINTV    EQU    25H
  116. GETDATE    EQU    2AH
  117. GETTIME    EQU    2CH
  118. ;
  119. ; MS DOS FCB EQUATES
  120. ;
  121. INT20H    EQU    DS:00H
  122. FCB    EQU    DS:5CH
  123. FCBNAME    EQU    DS:5DH
  124. FCBEXT    EQU    DS:65H
  125. FCBSZL     EQU    DS:6CH
  126. FCBSZH    EQU    DS:6DH
  127. FCBCR      EQU    DS:7CH
  128. FCBRR     EQU    DS:7DH
  129. FCB2       EQU    DS:6CH
  130. ;
  131. B0050    EQU    1        ; 50 baud
  132. B0075    EQU    2        ; 75 baud
  133. B0110    EQU    3        ; 110 baud
  134. B01345    EQU    4        ; 134.5 baud
  135. B0150    EQU    5        ; 150 baud
  136. B0200    EQU    6        ; 200 baud
  137. B0300    EQU    7        ; 300 baud
  138. B0600    EQU    8        ; 600 baud
  139. B1200    EQU    9        ; 1200 baud
  140. B1800    EQU    10        ; 1800 baud
  141. B2000    EQU    11        ; 2000 baud
  142. B2400    EQU    12        ; 2400 baud
  143. B3600    EQU    13        ; 3600 baud
  144. B4800    EQU    14        ; 4800 baud
  145. B9600    EQU    16        ; 9600 baud
  146. B19200    EQU    17        ; 19200 baud
  147. ;
  148.     SUBTTL    'PREFIX, CONSTANTS AND WORKAREA'
  149.     PAGE
  150. MODEM      SEGMENT PUBLIC 'CODE'
  151.         ASSUME  CS:MODEM,DS:MODEM,ES:MODEM
  152. ;
  153. ;       ----------------
  154. ;       START OF ACTUAL PROGRAM AREA 
  155. ;    ----------------
  156.         ORG     100H
  157. MAIN    PROC    FAR
  158.     JMP    STARTS
  159. OPTION    DB    0           ;PRIMARY OPTION
  160. ;
  161. ;DATAFLG IS USED BY THE "V" SUBCOMMAND -
  162. ;IT IS 0 WHEN A HEADER OR CKSUM IS BEING
  163. ;SENT/RCD, AND 1 IF "VIEWABLE" DATA (THE
  164. ;SECTOR ITSELF) IS
  165. ;
  166. DATAFLG    DB    0           ;AT HEADER, FIRST
  167. ;
  168. ;
  169. ;SUB-OPTION TABLE.  IF AN OPTION IS IN EFFECT,
  170. ;    THE CHARACTER IS SET TO BINARY 0
  171. ;
  172. OPTBL    Label    Word
  173.  
  174. ANSWFLG DB    'A'         ;ANSWER MODE
  175. DISCFLG    DB    'D'         ;DISCONNECT WHEN DONE
  176. ECHOFLG    DB    'E'         ;TO ECHO AFTER XFER
  177. DUMYFLG    DB    'U'        ;DEFAULT UART FLAG
  178. INITFLG DB    'I'        ;TO INIT THE UART / MODEM
  179. ORIGFLG DB    'O'         ;ORIGINATE MODE
  180. QFLG    DB    'Q'         ;QUIET TRANSFER (NO MSGS)
  181. RSEEFLG    DB    'R'         ;SEE WHAT'S RECEIVED
  182. SSEEFLG    DB    'S'         ;SEE WHAT'S SENT
  183. TERMFLG    DB    'T'         ;TO TERM AFTER XFER
  184. VSEEFLG    DB    'V'         ;VIEW MESSAGES (NO HDR, ETC)
  185. OPTBE    Label    Word        ;END OF OPTIONS
  186. ;
  187. TABLESIZE EQU    OPTBE-OPTBL
  188. ;
  189. RCVSNO    DB    0           ;SECT # RECEIVED
  190. SECTNO    DB    0           ;CURRENT SECTOR NUMBER 
  191. ERRCT    DB    0           ;ERROR COUNT
  192. SAVCHAR    DB    00        ;STORAGE FOR TERM
  193. ;
  194. ;    FOLLOWING 3 USED BY DISK BUFFERING ROUTINES
  195. ;
  196. EOFLG    DB    0           ;EOF FLAG (1=TRUE)
  197. SECPTR    DW    DBUF
  198. SECINBF    DB    0           ;# OF SECTORS IN BUFFER
  199. ;
  200. bdtab    db    010H        ; 16 entries
  201.     db    '020'
  202.     db    b0200
  203.     db    '110'
  204.     db    b0110
  205.     db    '120'
  206.     db    b1200
  207.     db    '134'
  208.     db    b01345
  209.     db    '150'
  210.     db    b0150
  211.     db    '180'
  212.     db    b1800
  213.     db    '192'
  214.     db    b19200
  215.     db    '200'
  216.     db    b2000
  217.     db    '240'
  218.     db    b2400
  219.     db    '300'
  220.     db    b0300
  221.     db    '360'
  222.     db    b3600
  223.     db    '480'
  224.     db    b4800
  225.     db    '50 '
  226.     db    b0050
  227.     db    '600'
  228.     db    b0600
  229.     db    '75 '
  230.     db    b0075
  231.     db    '960'
  232.     db    b9600
  233. ;
  234. ;       HELP MSGS 
  235. ;
  236. ;
  237. msg00    db    cr,lf
  238.  db '+----------------------------------------------------------------+',cr,lf
  239.  db '|                                                                |',cr,lf
  240.  db '|          M  O  D  E  M   - -   For the Rainbow 100 Series      |',cr,lf
  241.  db '|          Addapted by James V. Colombo   Rainbow SWE            |',cr,lf
  242.  db '|                         Version 3.3.4                          |',cr,lf
  243.  db '|                            01/18/85                            |',cr,lf
  244.  db '+----------------------------------------------------------------+',cr,lf
  245.  db     cr,lf,0,1
  246. ;
  247. ;
  248. MSG01    DB    CR,LF
  249. ;                1234567890123456789012345678901234567890123456789012345678901234567890
  250.     DB    '----  M  O  D  E  M  ----  ',cr,lf,cr,lf
  251.      db     'Converted from  MODEM 3.0 by Ward Christensen     ',cr,lf
  252.     DB    'Version 3.3.3 for The Rainbow by James V. Colombo',cr,lf
  253.     DB    '      R  E  A  D  Y        ',cr,lf  
  254.      db    cr,lf,'$',1,0
  255. MSG01A    DB    'File Open, Ready to Receive',CR,LF,0
  256. MSG02    DB    'Awaiting #',0
  257. MSG03A    DB    'h rcd, not soh',CR,LF,0
  258. MSG03    DB    '+++ TIMEOUT +++',0
  259. MSG04    DB    '++ Bad Sector # in Hdr',CR,LF,0
  260. MSG05    DB    '++ CKSUM ++',0
  261. MSG06    DB    'Send # ',0
  262. MSG07    DB    'h rcvd, not ack ',CR,LF,0
  263. MSG08    DB    'Timeout on ack',CR,LF,0
  264. MSG09    DB    'Modem Program Cancelled ',CR,LF,0
  265. MSG10    DB    'File exists, Type Y to erase ',0
  266. MSG11    DB    'Can not open file$'
  267. MSG12    DB    'File open, Extent Length ',0
  268. MSG13    DB    'Awaiting Initial nak',CR,LF,0
  269. MSG14    DB    cr,lf,'Transfer Complete',CR,LF,0
  270. MSG15    DB    cr,lf,'Press Return to Disconnect'
  271.     DB    cr,lf,'Press Space bar to Exit',0
  272. MSG16    DB    '++ EXITING ++',0
  273. MSG17    DB    cr,lf,'++ Do not Forget - The Modem is'
  274.     DB    'NOT Disconnected',CR,LF,0
  275. ;    DB    'Use "M3 D" to Disconnect',CR,LF,0
  276. MSG18    DB    'Multiple errors encountered. '
  277.     DB    'Type Q to quit, R to Retry ',0
  278. MSG19    DB    CR,LF,'Press Return to Continue'
  279.     DB    CR,LF,0
  280. MSG20    DB    '++ Unable to Receive Block'
  281.     DB    CR,LF,'++ ABORTING ++$'
  282. MSG21    DB    'Can not Send Sector '
  283.     DB    '- ABORTING',CR,LF,'$'
  284. MSG22    DB    '++ ERROR - Can not make file',CR,LF
  285.     DB    '++ Directory must be full',CR,LF,'$'
  286. MSG22A    DB    '++ Can not Close Files ++$'
  287. MSG23    DB    '++ File Read ERROR ++$'
  288. MSG24    DB    '++ ERROR Writing File ++',CR,LF,'$'
  289. MSG25    DB    'Invalid option on modem command',CR,LF
  290.     DB      'PRESS RETURN FOR HELP, CTL-C IF NOT',CR,LF,1,0
  291. MSG26    DB      'Format for command is',CR,LF,CR,LF
  292.     DB      'MODEM # FILENAME',CR,LF,CR,LF
  293.     DB      'Where # is a 1 character primary option,',CR,LF
  294.     DB      ' which may be followed by sub-options,',CR,LF
  295.     DB      ' and by ".xxx" to set baud rate to xxx'
  296.     DB      CR,LF,CR,LF
  297.     DB      'Primary Options',CR,LF,1
  298.     DB      '    S to send a file',CR,LF
  299.     DB      '    R to receive a file',CR,LF
  300.         DB      '    T to act as a terminal',CR,LF
  301.     DB      '    E to act as a computer (echo data)',CR,LF
  302.     DB      '    H to print this help file'
  303.     DB      CR,LF,CR,LF
  304.     DB      'Secondary options',CR,LF,1
  305.     DB      '    D disconnect after execution',CR,LF
  306.     DB      '    T go to terminal mode after file xfer',CR,LF
  307.     DB      '    E go to echo mode after file xfer',CR,LF
  308.     DB      '    Q quiet mode - no status msgs',CR,LF
  309.     DB      '    R show chars received',CR,LF
  310.     DB      '    S show chars sent',CR,LF
  311.     DB      '    V view file sent/received (no status)',CR,LF
  312.     DB      CR,LF,'FOR EXAMPLES, TYPE MODEM X',CR,LF,1,0
  313. MSG27    DB      'Send file, ',CR,LF
  314.     DB      '    MODEM S fn.ft',CR,LF
  315.     DB      'Send another file',CR,LF
  316.     DB      '    MODEM S fn.ft',CR,LF
  317.     DB      'Then send a third file at 450 baud and disconnect'
  318.     DB      CR,LF,'    MODEM SD.450 fn.ft',CR,LF
  319.     DB      'Act as a terminal (Default = 1200 baud) ',CR,LF
  320.     DB      '    MODEM T',CR,LF
  321.     DB    ' Use ctl-W to disonnect (drop DTR)',cr,lf
  322.     DB      ' Use ctl-D to exit',CR,LF
  323.     DB      'Receive file,  view it',CR,LF
  324.     DB      '    MODEM RV fn.ft',CR,LF,1,0
  325. ;
  326. DBUF    DB    128*16 DUP(?)    ;16 LOGICAL SECTOR BUFFER # 1
  327.                 ;   (* Four physical sectors)
  328.     DB    128*16 DUP(?)    ;16 LOGICAL SECTOR BUFFER # 2
  329.                 ;   (* Four physical sectors)
  330.                 ; TOTAL = one track on PC/DOS (8/512)
  331. ;    DB    'POOT'
  332.  
  333. INIT_CCB    CCB    <0,0,0,0,1>    ; Initialization control block
  334. mode         db    1        ;   Data Leads only
  335. stop_bits    db    1        ;   One stop bit
  336. bits        db    4        ;   Eight Bits
  337. parit        db    3        ;   No Parity
  338. brr        db    9        ;   Default to 1200 Baud - receive
  339. brt        db    9        ;   Default to 1200 Baud - transmit
  340. xon        db    11H        ;   Xon character
  341. xoff        db    13H        ;   Xoff character
  342. rxx        db    2        ;   Rx Auto Xon/Xoff
  343. txx        db    2        ;   Tx Auto Xon/Xoff
  344. bs        dw    256        ;   Size of comm buffer
  345. boff        dw    0        ;   Comm_buffer offset
  346. bsegm        dw    0        ;   Comm_buffer segment
  347. ;
  348. IN_CCB        CCB    <7,0,0,0,0>    ; Read input char
  349. ;
  350. OUT_CCB        CCB    <10,0,0,0,0>    ; Transmit character control block
  351. ;
  352. MISC_CCB    CCB    <0,0,0,0,0>    ; CCB for misc. use
  353. ;
  354.     SUBTTL    'MAIN PROGRAM SECTION'
  355.         PAGE
  356. STARTS:
  357. ;
  358. ;=============================================================================
  359. ;
  360. ;    PRINT THE STARTUP MESSAGE 
  361. ;
  362.     push    dx
  363.            MOV    DX,OFFSET MSG01    ;GET ID MESSAGE
  364.     MOV    CL,PRINT
  365.     CALL    BDOS         ;PRINT ID MESSAGE
  366.     pop    dx
  367. ;
  368. ;=============================================================================
  369. ;
  370. ;
  371. ;SAVE PRIMARY OPTION, VALIDATE SECONDARY OPT.
  372. ;
  373.     CALL    PROCOPT
  374. ;                IF WE RETURN FROM PROCOPT, A VALID
  375. ;            ACTION OPTION (not help or examples)
  376. ;            WAS FOUND .. PROCESSING CONTINUES
  377. ;
  378. ;INIT THE MODEM OR SERIAL PORT   (dtr UP always - THEN CHECK FOR "i" OPT.
  379. ;
  380.     CALL    INITMOD
  381. ;
  382. ;MOVE THE FILENAME FROM FCB 2 TO FCB 1
  383. ;
  384.     CALL    MOVEFCB
  385. ;
  386. ;JMP TO APPROPRIATE FUNCTION
  387. ;
  388.     MOV    AL,OPTION    ;GET PRIMARY OPTION
  389. ;
  390.     CMP    AL,'C'      ;(COMPAT W/EARLIER
  391.     JNZ    L00001
  392.     JMP    TRMECHO     ;OPTION "COMPUTER")
  393. ;
  394. L00001:    CMP    AL,'E'      ;TERMINAL IN ECHO
  395.     JNZ    L00002
  396.     JMP    TRMECHO     ;..MODE?
  397. ;
  398. L00002:    CMP    AL,'T'            ;TERMINAL..
  399.     JNZ    L00003
  400.     JMP    TERM            ;..MODE?
  401. ;
  402. L00003:
  403. ;    CMP    AL,'D'
  404. ;    JNZ    L00004
  405. ;    JMP    DISCONN
  406. ;L00004:
  407. ;
  408.     CMP    AL,'S'            ;SEND..
  409.     JNZ    L00005
  410.     JMP    SENDFIL            ;..A FILE?
  411. ;
  412. L00005:    CMP    AL,'R'            ;RECEIVE..
  413.     JNZ    L00006
  414.     JMP    RCVFIL            ;..A FILE?
  415. ;
  416. ;INVALID OPTION
  417. ;
  418.  
  419. L00006:    JMP    BADOPT          ;BAD OPTIONS !
  420. ;
  421. ; Return to MS-DOS after cleaning up the IOCTL drivers.
  422. ;
  423. ; Disable the receiver
  424. ;
  425. EXIT:
  426. ;
  427. ; Now program the device to use the default buffer.
  428. ;
  429.     MOV    Byte Ptr MISC_CCB.FUNCTION,05    ; Disable the receiver
  430.  
  431.     MOV    AX,4402H        ; IOCTL function program to default
  432.     MOV    BX,3            ; File handle for comms
  433.     MOV    DX,OFFSET MISC_CCB    ; DS:DX points to control block
  434.     INT    21H            ; Call MS-DOS
  435.     MOV    Byte Ptr MISC_CCB.FUNCTION,02    ; Use default buffer
  436.  
  437.     MOV    AX,4402H        ; IOCTL function program to default
  438.     MOV    BX,3            ; File handle for comms
  439.     MOV    DX,OFFSET MISC_CCB    ; DS:DX points to control block
  440.     INT    21H            ; Call MS-DOS
  441. ;
  442. ; Reprogram driver to NVM values
  443. ;
  444.     MOV    Byte Ptr MISC_CCB.FUNCTION,01    ; Reprogram to NVM value
  445.  
  446.     MOV    AX,4402H        ; IOCTL function program to default
  447.     MOV    BX,3            ; File handle for comms
  448.     MOV    DX,OFFSET MISC_CCB    ; DS:DX points to control block
  449.     INT    21H            ; Call MS-DOS
  450. ;
  451. ; Now exit to MS-DOS
  452. ;
  453.     MOV    AX,4C00H
  454.     INT    21H
  455.  
  456. MAIN    ENDP
  457.  
  458. ; * * * * * * * * * * * * * * * * * * * *
  459. ;                    *
  460. ;    TERM: TERMINAL MODE        *
  461. ;                    *
  462. ; * * * * * * * * * * * * * * * * * * * *
  463. ;
  464. ;THIS PROGRAM SIMPLY SENDS KEYED CHARACTERS
  465. ;DOWN THE LINE, AND DISPLAYS CHARACTERS
  466. ;RECEIVED FROM THE LINE.  THIS MAKES IT
  467. ;SUITABLE FOR COMMUNICATION WITH TIME SHARING
  468. ;COMPUTERS, CBBS'S, OR ANOTHER PROGRAM
  469. ;RUNING "MODEM E" (ECHO MODE)
  470. ;
  471. ;TYPEZZ THE "EXITCHR" (ORIGINALLY CTL-E) TO EXIT.
  472. ;OR THE "DISCCHR" (ORIGINALLY CTL-D) TO DISCONN.
  473. ;
  474. ;A FUTURE ENHANCEMENT WILL BE TO WRITE THE
  475. ;RECEIVED DATA IN MEMORY, AND ALLOW IT TO
  476. ;BE WRITTEN TO DISK
  477. ;
  478. TERM    PROC    NEAR
  479. ;
  480. ; See if there is a character available from the serial port
  481. ;
  482.     Call    Statit            ; Get status
  483.     Or    Al,Al            ; Character available?
  484.     Jz    Terml            ; If not, Loop
  485. ;
  486.     Call    Getit            ; Get character
  487.     CALL    TYPEZZ          ;TYPEZZ IT
  488. ;
  489. Terml:    Mov    AL,Byte Ptr Savchar
  490.     OR    AL,AL
  491.     Jnz    L00009
  492.     Call    Stat            ; Get keyboard status
  493.     JNZ    L00007            ; If so, get it!
  494.     JMP    TERM             ;..NO, CHECK LINE
  495. L00007:
  496.     CALL    KEYIN           ;GET CHAR
  497.     CMP    AL,EXITCHR        ;TIME TO END?
  498.     JNZ    L00008
  499.     JMP    CKDIS                ;YES, CK DISCONN
  500. L00008:
  501.     CMP    AL,DISCCHR        ;DISCONNECT REQUEST?
  502.     JNZ    L00009
  503.     JMP    DISCONN                ;YES, DO IT
  504. L00009:
  505.     Mov    Byte Ptr Savchar,00    ;Clear the saved character
  506.     Call    Sendit            ;Send character
  507.     Or    Ah,Ah            ;Was character sent?
  508.     Jne    Term            ;If so, loop
  509.     Mov    Byte Ptr Savchar,AL
  510.     JMP    TERM            ;LOOP
  511.  
  512. TERM    ENDP
  513. ; 
  514. ; * * * * * * * * * * * * * * * * * * * *
  515. ;                    *
  516. ;    TRMECHO: TERMINAL WITH ECHO    *
  517. ;                    *
  518. ; * * * * * * * * * * * * * * * * * * * *
  519. ;
  520. ;TERMINAL PROGRAM WITH ECHO - SEE NOTES
  521. ;UNDER "TERM" ABOVE
  522. ;
  523. ;C A U T I O N   DON'T RUN WITH BOTH COMPUTERS
  524. ;IN "ECHO" MODE - LINE ERRORS (OR ANY CHAR)
  525. ;WILL BE ECHOED BACK AND FORTH AD INFINITUM.
  526. ;
  527. TRMECHO PROC    NEAR
  528.     Call    Statit        ;Get status
  529.     Or    Al,Al        ; Character available?
  530.     JZ    L00011        ; If so, get it!
  531.     JMP    LINECHR     ;YES, READ THE CHR
  532. L00011:    CALL    STAT        ;CHECK LOCAL KB
  533.     JNZ    L00012
  534.     JMP    TRMECHO     ;..NO CHAR
  535. L00012:    CALL    KEYIN       ;GET LOCAL CHAR
  536.     CMP    AL,EXITCHR    ;END?
  537.     JNZ    L00013
  538.     JMP    CKDIS       ;YES, CK DISCONN, EXIT
  539. L00013:    CMP    AL,DISCCHR    ;DISCONN?
  540.     JNZ    L00014
  541.     JMP    DISCONN     ;..YES, DO IT.
  542. L00014: Call    Sendit        ;Send character
  543.     Or    Ah,Ah        ;Was character sent?
  544.     Jz    L00014        ;If not, try again!
  545.     CALL    TYPEZZ      ;ECHO IT LOCALLY
  546.     JMP    TRMECHO     ;..AND LOOP
  547. ;
  548. ;GOT CHAR FROM LINE
  549. ;
  550. LINECHR:
  551.     Call    Getit        ; Get character
  552.     CALL    TYPEZZ      ;TYPEZZ IT
  553.     JMP    TRMECHO     ;LOOP
  554. TRMECHO    ENDP
  555. ;
  556. ; * * * * * * * * * * * * * * * * * * * *
  557. ;                    *
  558. ;    SENDFIL: SENDS A CP/M FILE    *
  559. ;                    *
  560. ; * * * * * * * * * * * * * * * * * * * *
  561. ;
  562. ;THE CP/M FILE SPECIFIED IN THE MODEM COMMAND
  563. ;IS TRANSFERRED OVER THE PHONE TO ANOTHER
  564. ;COMPUTER RUNNING MODEM WITH THE "R" (RECEIVE)
  565. ;OPTION.  THE DATA IS SENT ONE SECTOR AT A
  566. ;TIME WITH HEADERS AND CHECKSUMS, AND RE-
  567. ;TRANSMISSION ON ERRORS.  
  568. ;
  569. SENDFIL PROC     NEAR
  570. ;
  571. ; Turn off auto Xon/Xoff
  572. ;
  573.     Mov    Rxx,01h            ; Disable Rx Auto Xon
  574.     Mov    Txx,01h            ; Disable Tx Auto Xon
  575.     MOV    DX,OFFSET INIT_CCB    ; DS:DX points to control block
  576.     MOV    AX,4402H        ; IOCTL function program to default
  577.     MOV    BX,3            ; File handle for comms
  578.     INT    21H            ; Call MS-DOS
  579. ;
  580.         CALL    OPENFIL     ;OPEN THE FILE
  581.     MOV    DL,80       ;WAIT 80 SEC..
  582.     CALL    WAITNAK     ;..FOR INITIAL NAK
  583. SENDLP:    CALL    RDSECT      ;READ A SECTOR
  584.     JAE    L00016
  585.     JMP    SENDEOF     ;SEND EOF IF DONE
  586. L00016:    CALL    INCRSNO     ;BUMP SECTOR #
  587.     XOR    AL,AL       ;ZERO ERROR..
  588.     MOV     ERRCT,AL    ;..COUNT
  589. SENDRPT:
  590.         CALL    SENDHDR            ;SEND A HEADER
  591.     CALL    SENDSEC     ;SEND DATA SECTOR
  592.     CALL    SENDCKS     ;SEND CKSUM
  593.     CALL    GETACK      ;GET THE ACK
  594.     JAE    L00017
  595.     JMP    SENDRPT     ;REPEAT IF NO ACK
  596. L00017:    JMP    SENDLP      ;LOOP UNTIL EOF
  597. ;
  598. ;FILE SENT, SEND EOT'S
  599. ;
  600. SENDEOF:
  601.     MOV    AL,EOT      ;SEND..
  602.     CALL    SEND        ;..AN EOT
  603.     CALL    GETACK      ;GET THE ACK
  604.     JAE    L00018
  605.     JMP    SENDEOF     ;LOOP IF NO ACK
  606. ;
  607. ; Turn on auto Xon/Xoff
  608. ;
  609. L00018: Mov    Rxx,02h            ; Enable Rx Auto Xon
  610.     Mov    Txx,02h            ; Enable Tx Auto Xon
  611.     MOV    DX,OFFSET INIT_CCB    ; DS:DX points to control block
  612.     MOV    AX,4402H        ; IOCTL function program to default
  613.     MOV    BX,3            ; File handle for comms
  614.     INT    21H            ; Call MS-DOS
  615.     JMP    DONE                ;ALL DONE
  616. ;
  617. SENDFIL    ENDP
  618. ;
  619. ; * * * * * * * * * * * * * * * * * * * *
  620. ;                    *
  621. ;    RCVFIL: RECEIVE A FILE        *
  622. ;                    *
  623. ; * * * * * * * * * * * * * * * * * * * *
  624. ;
  625. ;RECEIVES A FILE IN BLOCK FORMAT AS SENT
  626. ;BY ANOTHER PERSON DOING "MODEM S FN.FT".
  627. ;
  628. RCVFIL    PROC    NEAR
  629. ;
  630. ; Turn off auto Xon/Xoff
  631. ;
  632.     Mov    Rxx,01h            ; Disable Rx Auto Xon
  633.     Mov    Txx,01h            ; Disable Tx Auto Xon
  634.     MOV    DX,OFFSET INIT_CCB    ; DS:DX points to control block
  635.     MOV    AX,4402H        ; IOCTL function program to default
  636.     MOV    BX,3            ; File handle for comms
  637.     INT    21H            ; Call MS-DOS
  638. ;
  639.           CALL    ERASFIL     ;ERASE THE FILE
  640.     CALL    MAKEFIL     ;..THEN MAKE NEW
  641.     MOV    AL,QFLG     ;SEE IF IN QUIET MODE
  642.     OR    AL,AL
  643.     JZ    L00019
  644.     JMP    RCVLP       ;NOT IN QUIET MODE, SKIP MSG
  645. L00019:    PUSH    BX
  646.     MOV    BX,OFFSET MSG01A
  647.     CALL    ILPRT       ;PRINT:
  648.     POP    BX
  649. RCVLP:    CALL    RCVSECT            ;GET A SECTOR
  650.     JAE    L00020
  651.     JMP    RCVEOT      ;GOT EOT
  652. L00020:    CALL    WRSECT      ;WRITE THE SECTOR
  653.     CALL    INCRSNO     ;BUMP SECTOR #
  654.     CALL    SENDACK     ;ACK THE SECTOR
  655.     JMP    RCVLP       ;LOOP UNTIL EOF
  656. ;
  657. ;GOT EOT ON SECTOR - FLUSH BUFFERS, END
  658. ;
  659. RCVEOT:    CALL    WRBLOCK     ;WRITE THE LAST BLOCK
  660.     CALL    SENDACK     ;ACK THE SECTOR
  661.     CALL    CLOSFIL     ;CLOSE THE FILE
  662. ;
  663. ;
  664. ; Turn on auto Xon/Xoff
  665. ;
  666.     Mov    Rxx,02h            ; Enable Rx Auto Xon
  667.     Mov    Txx,02h            ; Enable Tx Auto Xon
  668.     MOV    DX,OFFSET INIT_CCB    ; DS:DX points to control block
  669.     MOV    AX,4402H        ; IOCTL function program to default
  670.     MOV    BX,3            ; File handle for comms
  671.     INT    21H            ; Call MS-DOS
  672. ;
  673.     MOV    AL,QFLG     ;QUIET..
  674.     OR    AL,AL       ;..MODE?
  675.     JNZ    L00021
  676.     JMP    CKDIS       ;YES, CK DISCONN, END.
  677. L00021:    JMP    DONE        ;DISCONN IF REQ'D
  678. RCVFIL    ENDP
  679. ;
  680. ; * * * * * * * * * * * * * * * * * * * *
  681. ;                    *
  682. ;        SUBROUTINES        *
  683. ;                    *
  684. ; * * * * * * * * * * * * * * * * * * * *
  685. ;
  686. ;
  687. ;---->    RCVSECT: RECEIVE A SECTOR
  688. ;
  689. ;RETURNS WITH CARRY SET IF EOT RECEIVED.
  690. ;
  691. RCVSECT PROC    NEAR
  692.     XOR    AL,AL       ;GET 0
  693.     MOV        ERRCT,AL    ;INIT ERROR COUNT
  694. RCVRPT:    MOV    AL,QFLG     ;QUIET?
  695.     OR    AL,AL
  696.     JNZ    L00022
  697.     JMP    RCVSQ       ;YES, NO STAT MSG.
  698. L00022:    PUSH    BX
  699.     MOV    BX,OFFSET MSG02
  700.     CALL    ILPRT       ;PRINT:
  701.     POP    BX
  702.     MOV    AL,SECTNO    ;GET SECTOR #
  703.     INC    AL          ;(REAL INR LATER)
  704.     CALL    HEXO        ;PRINT IN HEX
  705.     CALL    CRLF        ;..THEN CRLF
  706. ;
  707. RCVSQ:    MOV    CH,10       ;10 SEC TIMEOUT
  708.     CALL    RECV        ;GET SOH/EOT
  709.     JAE    L00023
  710.     JMP    RCVSTOT     ;TIMEOUT
  711. L00023:    CMP    AL,SOH      ;GET SOH?
  712.     JNZ    L00024
  713.     JMP    RCVSOH      ;..YES
  714. ;
  715. ;EARLIER VERS. OF MODEM PROG SENT SOME NULLS -
  716. ;IGNORE THEM
  717. ;
  718. L00024:    OR    AL,AL       ;00 FROM SPEED CHECK?
  719.     JNZ    L00025
  720.     JMP    RCVSQ       ;YES, IGNORE IT
  721. L00025:    CMP    AL,EOT      ;END OF TRANSFER?
  722.     STC                 ;RETURN WITH CARRY..
  723.     JNZ    L00026
  724.     RET                 ;..SET IF EOT
  725. ;
  726. ;DIDN'T GET SOH  OR EOT - 
  727. ;
  728. L00026:    MOV    CH,AL       ;SAVE CHAR
  729.     MOV    AL,VSEEFLG    ;VIEWING..
  730.     OR    AL,AL       ;..MODE?
  731.     JNZ    L00027
  732.     JMP    RCVSEH      ;YES, PRT.MSG
  733. L00027:    MOV    AL,QFLG     ;QUIET..
  734.     OR    AL,AL       ;..MODE?
  735.     JNZ    RCVSEH 
  736.     JMP    RCVSERR     ;YES, SKIP MSG
  737. RCVSEH:    MOV    AL,CH       ;GET CHAR
  738.     CALL    HEXO        ;SHOW IN HEX
  739.     PUSH    BX
  740.     MOV    BX,OFFSET MSG03
  741.     CALL    ILPRT       ;PRINT:
  742.     POP    BX
  743. ;
  744. ;DIDN'T GET VALID HEADER - PURGE THE LINE,
  745. ;THEN SEND NAK.
  746. ;
  747. RCVSERR:
  748.     MOV    CH,1        ;WAIT FOR 1 SEC..
  749.     CALL    RECV        ;..WITH NO CHARS
  750.     JNAE    L00029
  751.     JMP    RCVSERR     ;LOOP UNTIL SENDER DONE
  752. L00029:    MOV    AL,NAK      ;SEND..
  753.     CALL    SEND        ;..THE NAK
  754.     MOV    AL,ERRCT    ;ABORT IF..
  755.     INC    AL          ;..WE HAVE REACHED..
  756.     MOV        ERRCT,AL    ;..THE ERROR..
  757.     CMP    AL,ERRLIM    ;..LIMIT?
  758.     JAE    L00030
  759.     JMP    RCVRPT      ;..NO, TRY AGAIN
  760. ;
  761. ;10 ERRORS IN A ROW - 
  762. ;
  763. L00030:    MOV    AL,VSEEFLG    ;VIEWING..
  764.     OR    AL,AL       ;..FILE?
  765.     JNZ    L00031
  766.     JMP    RCVCKQ      ;YES, ASK RETRY/QUIT
  767. L00031:    MOV    AL,QFLG     ;QUIET..
  768.     OR    AL,AL       ;..MODE?
  769.     JNZ    RCVCKQ 
  770.     JMP    RCVSABT     ;ABORT
  771. RCVCKQ:    CALL    CKQUIT      ;RETRY/QUIT?
  772.     JNZ    RCVSABT
  773.     JMP    RCVSECT     ;TRY AGAIN
  774. ;
  775. RCVSABT:
  776.     CALL    CLOSFIL     ;KEEP WHATEVER WE GOT
  777.     MOV    DX,OFFSET MSG20
  778.     CALL    ERXIT
  779. ;
  780. ;TIMEDOUT ON RECEIVE
  781. ;
  782. RCVSTOT:
  783.         STI
  784.     MOV    AL,VSEEFLG    ;VIEWING..
  785.     OR    AL,AL       ;..MODE?
  786.     JNZ    L00034
  787.     JMP    RCVSPT      ;YES, PRT MSG
  788. L00034:    MOV    AL,QFLG     ;QUIET..
  789.     OR    AL,AL       ;..MODE?
  790.     JNZ    RCVSPT 
  791.     JMP    RCVSERR     ;YES, NO MSG
  792. RCVSPT:    PUSH    BX
  793.     MOV    BX,OFFSET MSG03
  794.     CALL    ILPRT
  795.     POP    BX
  796. RCVPRN:    MOV    AL,ERRCT    ;PRINT ERROR..
  797.     CALL    HEXO        ;..COUNT
  798.     CALL    CRLF
  799.     JMP    RCVSERR     ;BUMP ERR CT, ETC.
  800. ;
  801. ;GOT SOH - GET BLOCK #, BLOCK # COMPLEMENTED
  802. ;
  803. RCVSOH:    MOV    CH,1        ;TIMEOUT = 1 SEC
  804.     CALL    RECV        ;GET SECTOR
  805.     JAE    L00036
  806.     JMP    RCVSTOT     ;GOT TIMEOUT
  807. L00036:    MOV    DH,AL       ;D=BLK #
  808.     MOV    CH,1        ;TIMEOUT = 1 SEC
  809.     CALL    RECV        ;GET CMA'D SECT #
  810.     JAE    L00037
  811.     JMP    RCVSTOT     ;TIMEOUT
  812. L00037:    NOT    AL          ;CALC COMPLEMENT
  813.     CMP    AL,DH       ;GOOD SECTOR #?
  814.     JNZ    L00038
  815.     JMP    RCVDATA     ;YES, GET DATA
  816. ;
  817. ;GOT BAD SECTOR #
  818. ;
  819. L00038:    MOV    AL,VSEEFLG    ;VIEWING..
  820.     OR    AL,AL       ;..MODE?
  821.     JNZ    L00039
  822.     JMP    RCVBSE      ;..YES, PRT MSG
  823. L00039:    MOV    AL,QFLG     ;QUIET..
  824.     OR    AL,AL       ;..MODE?
  825.     JNZ    RCVBSE 
  826.     JMP    RCVSERR     ;..YES, NO MSG
  827. ;
  828. RCVBSE:    PUSH    BX
  829.     MOV    BX,OFFSET MSG04
  830.     CALL    ILPRT       ;PRINT:
  831.     POP    BX
  832.     JMP    RCVSERR     ;BUMP ERROR CT.
  833. ;
  834. ;
  835. RCVDATA:
  836.     MOV    AL,DH       ;GET SECTOR #
  837.     MOV       RCVSNO,AL    ;SAVE IT
  838.     MOV    AL,1        ;SHOW..
  839.     MOV       DATAFLG,AL    ;GETTING DATA
  840.     MOV    CL,0        ;INIT CKSUM
  841.     MOV    BX,80H      ;POINT TO BUFFER
  842.     CLI
  843. RCVCHR:    MOV    CH,1        ;1 SEC TIMEOUT
  844.     CALL    RECV        ;GET CHAR
  845.     JAE    L00041
  846.     JMP    RCVSTOT     ;TIMEOUT
  847. L00041:    MOV    BYTE PTR [BX],AL ;STORE CHAR
  848.     INC    BL          ;DONE?
  849.     JZ    L00042
  850.     JMP    RCVCHR      ;NO, LOOP
  851. ;
  852. ;VERIFY CHECKSUM
  853. ;
  854. L00042:    MOV    DH,CL       ;SAVE CHECKSUM
  855.     XOR    AL,AL       ;SHOW..
  856.     MOV        DATAFLG,AL    ;..END OF DATA
  857.     MOV    CH,1        ;TIMEOUT LEN.
  858.     CALL    RECV        ;GET CHECKSUM
  859.     JAE    L00043
  860.     JMP    RCVSTOT     ;TIMEOUT
  861. L00043:    STI
  862.     CMP    AL,DH       ;CHECKSUM OK?
  863.     JZ    L00044
  864.     JMP    RCVCERR     ;NO, ERROR
  865. ;
  866. ;GOT A SECTOR, IT'S A DUP IF = PREV,
  867. ;    OR OK IF = 1 + PREV SECTOR
  868. ;
  869. L00044:    MOV    AL,RCVSNO    ;GET RECEIVED
  870.     MOV    CH,AL       ;SAVE IT
  871.     MOV    AL,SECTNO    ;GET PREV
  872.     CMP    AL,CH       ;PREV REPEATED?
  873.     JNZ    L00045
  874.     JMP    RECVACK     ;ACK TO CATCH UP
  875. L00045:    INC    AL          ;CALC NEXT SECTOR #
  876.     CMP    AL,CH       ;MATCH?
  877.     JZ    L00046
  878.     JMP    ABORT       ;NO MATCH - STOP SENDER, EXIT
  879. L00046:    RET                 ;CARRY OFF - NO ERRORS
  880. ;
  881. ;GOT CKSUM
  882. ;
  883. RCVCERR:
  884.     MOV    AL,VSEEFLG    ;VIEWING..
  885.     OR    AL,AL       ;..MODE?
  886.     JNZ    L00047
  887.     JMP    RCVCPR      ;..YES, PRT MSG
  888. L00047:    MOV    AL,QFLG     ;QUIET..
  889.     OR    AL,AL       ;..MODE?
  890.     JNZ    RCVCPR 
  891.     JMP    RCVSERR     ;YES, NO MSG
  892. RCVCPR:    PUSH    BX
  893.     MOV    BX,OFFSET MSG05
  894.     CALL    ILPRT
  895.     POP    BX
  896.     JMP    RCVPRN      ;PRINT ERROR #
  897. ;
  898. ;PREV SECT REPEATED, DUE TO THE LAST ACK
  899. ;BEING GARBAGED.  ACK IT SO SENDER WILL CATCH UP 
  900. ;
  901. RECVACK:
  902.     CALL    SENDACK     ;SEND THE ACK,
  903.     JMP    RCVSECT     ;GET NEXT BLOCK
  904. ;
  905. ;SEND AN ACK FOR THE SECTOR
  906. ;
  907. SENDACK:
  908.     MOV    AL,ACK      ;GET ACK
  909.     CALL    SEND        ;..AND SEND IT
  910.     RET
  911. RCVSECT ENDP
  912. ;
  913. ;---->    SENDHDR: SEND THE SECTOR HEADER
  914. ;
  915. ;SEND: (SOH) (BLOCK #) (COMPLEMENTED BLOCK #)
  916. ;
  917. SENDHDR PROC    NEAR
  918.     MOV    AL,QFLG     ;QUIET..
  919.     OR    AL,AL       ;..MODE?
  920.     JNZ    L00049
  921.     JMP    SENDHNM     ;YES, SKIP STATUS MSG.
  922. L00049:    PUSH    BX
  923.     MOV    BX,OFFSET MSG06
  924.     CALL    ILPRT       ;PRINT:
  925.     POP    BX
  926.     MOV    AL,SECTNO    ;PRINT..
  927.     CALL    HEXO        ;..SECT #
  928.     CALL    CRLF        ;..THEN CR/LF
  929. ;
  930. SENDHNM:
  931.         MOV    AL,SOH      ;SEND..
  932.     CALL    SEND        ;..SOH,
  933.     MOV    AL,SECTNO    ;THEN SEND..
  934.     CALL    SEND        ;..SECTOR #
  935.     MOV    AL,SECTNO    ;THEN SENDOR #
  936.     NOT    AL          ;..COMPLEMENTED..
  937.     CALL    SEND        ;..SECTOR #
  938.     RET                 ;FROM SENDHDR
  939. SENDHDR ENDP
  940. ;
  941. ;---->    SENDSEC: SEND THE DATA SECTOR
  942. ;
  943. ;WHILE SENDING THE SECTOR, THE "DATAFLG" IS SET
  944. ;SUCH THAT IF "V" (VIEW THE FILE) WAS REQUESTED,
  945. ;THE "SHOW" ROUTINE WILL PRINT THE DATA, BUT NOT
  946. ;THE HDR OR CKSUM, OR ANY NON-FATAL MSGS.
  947. ;
  948. SENDSEC PROC    NEAR
  949.     MOV    AL,1        ;SHOW NOW AT DATA..
  950.     MOV        DATAFLG,AL    ;..FOR VIEW COMMAND
  951.     MOV    CL,0        ;INIT CKSUM
  952.     MOV    BX,80H      ;POINT TO BUFFER
  953. SENDC:    MOV    AL,BYTE PTR [BX] ;GET A CHAR
  954.     CALL    SEND        ;SEND IT
  955.     INC    BL          ;POINT TO NEXT CHAR
  956.     JZ    L00050
  957.     JMP    SENDC       ;LOOP IF <100H
  958. L00050:    XOR    AL,AL       ;SHOW NOT INTO DATA..
  959.     MOV       DATAFLG,AL    ;..FOR VIEW COMMAND
  960.     RET                 ;FROM SENDSEC
  961. SENDSEC ENDP
  962. ;
  963. ;---->    SENDCKS: SEND THE CHECKSUM
  964. ;
  965. SENDCKS PROC    NEAR
  966.     MOV    AL,CL       ;SEND THE..
  967.     CALL    SEND        ;..CHECKSUM
  968.     RET                 ;FROM SENDCKS
  969. SENDCKS    ENDP
  970. ;
  971. ;---->    GETACK: GET THE ACK ON THE SECTOR
  972. ;
  973. ;RETURNS WITH CARRY CLEAR IF ACK RECEIVED.
  974. ;IF AN ACK IS NOT RECEIVED, THE ERROR COUNT
  975. ;IS INCREMENTED, AND IF LESS THAN "ERRLIM",
  976. ;CARRY IS SET AND CONTROL RETURNS.  IF THE
  977. ;ERROR COUNT IS AT "ERRLIM", THE PROGRAM
  978. ;ABORTS IF IN "QUIET" MODE, OR ASKS THE
  979. ;USER FOR QUIT/RETRY IF NOT.
  980. ;
  981. GETACK  PROC    NEAR
  982.            MOV    CH,10       ;WAIT 10 SECONDS MAX
  983.     CALL    RECVDG      ;RECV W/GARBAGE COLLECT
  984.     JAE    L00051
  985.     JMP    GESATOT     ;TIMED OUT
  986. L00051:    CMP    AL,ACK      ;OK? (CARRY OFF IF =)
  987.     JNZ    L00052
  988.     RET                 ;YES, RET FROM GETACK
  989. ;
  990. L00052  LABEL   NEAR
  991.         IF      CANFLG
  992.     CMP    AL,CAN      ;CANCEL TRANSMISSION?
  993.     JNZ    L00053
  994.     JMP    ABORT       ;..YES
  995. L00053  LABEL    NEAR
  996.     ENDIF
  997. ;
  998.     MOV    CH,AL       ;SAVE CHAR
  999.     MOV    AL,QFLG     ;QUIET..
  1000.     OR    AL,AL       ;..MODE?
  1001.     JNZ    L00054
  1002.     JMP    ACKERR      ;..YES, NO MSG
  1003. L00054:    MOV    AL,CH       ;GET CHAR
  1004.     CALL    HEXO        ;PRINT IN HEX
  1005.     PUSH    BX
  1006.     MOV    BX,OFFSET MSG07
  1007.     CALL    ILPRT       ;PRINT:
  1008.     POP    BX
  1009. ;
  1010. ;TIMEOUT OR ERROR ON ACK - BUMP ERROR COUNT
  1011. ;
  1012. ACKERR:    MOV    AL,ERRCT    ;GET COUNT
  1013.     INC    AL          ;BUMP IT
  1014.     MOV        ERRCT,AL    ;SAVE BACK
  1015.     CMP    AL,ERRLIM    ;AT LIMIT?
  1016.     JNB    L00055
  1017.     RET                 ;NOT AT LIMIT
  1018. ;
  1019. ;REACHED ERROR LIMIT
  1020. ;
  1021. L00055:    MOV    AL,VSEEFLG    ;VIEWING..
  1022.     OR    AL,AL       ;..FILE?
  1023.     JNZ    L00056
  1024.     JMP    GACKV       ;YES, ASK QUIT/RETRY
  1025. L00056:    MOV    AL,QFLG     ;QUIET..
  1026.     OR    AL,AL       ;..MODE?
  1027.     JNZ    GACKV
  1028.     JMP    CSABORT     ;..YES, NO MCG
  1029. GACKV:    CALL    CKQUIT      ;SEE IF WANT TO QUIT
  1030.     STC                 ;TO SHOW NO ACK
  1031.     JNZ    CSABORT
  1032.     RET                 ;KEEP ON TRYIN'
  1033. CSABORT:
  1034.     MOV    DX,OFFSET MSG21
  1035.     CALL    ERXIT
  1036. GETACK    ENDP
  1037. ;
  1038. ;TIMEOUT GETTING ACK
  1039. ;
  1040. GESATOT PROC    NEAR
  1041.     MOV    AL,QFLG     ;QUIET..
  1042.     OR    AL,AL       ;..MODE?
  1043.     JNZ    L00059
  1044.     JMP    ACKERR      ;YES, NO MSG
  1045. L00059:    PUSH    BX
  1046.     MOV    BX,OFFSET MSG08
  1047.     CALL    ILPRT       ;PRINT:
  1048.      POP    BX
  1049.     JMP    ACKERR
  1050. GESATOT    ENDP
  1051. ; 
  1052. ;---->    CKABORT: CHECK FOR LOCAL ABORT
  1053. ;
  1054. ;IF THE USER WANTS TO CANCEL THE TRANSMISSION,
  1055. ;TYPING CTL-X WILL ABORT IT.  NOTE THIS TEST
  1056. ;IS NOT MADE IF IN QUIET (NO CONSOLE I/O) MODE.
  1057. ;
  1058. CKABORT PROC    NEAR
  1059.     MOV    AL,VSEEFLG    ;VIEWING?
  1060.     OR    AL,AL
  1061.     JNZ    L00060
  1062.     JMP    CKABGO      ;YES, CHECK
  1063. L00060: MOV    AL,QFLG        ;SUPPRESSED..
  1064.     OR    AL,AL       ;..CONSOLE I/O?
  1065.     JNZ    L00061
  1066.     RET                 ;YES, NO TEST
  1067. ;
  1068. L00061  LABEL    NEAR
  1069.     IF NOT CANFLG
  1070.     RET
  1071.     ENDIF
  1072. ;
  1073. CKABGO:    CALL    STAT        ;KEY PRESSED?
  1074.     JNZ    L00062
  1075.     RET                 ;NOTHING FROM KEYBOARD
  1076. L00062:    CALL    KEYIN       ;GET DATA
  1077.     CMP    AL,EXITCHR    ;TIME TO END?
  1078.     JZ    ABORT  
  1079.     RET                 ;NO, CONTINUE
  1080. ; 
  1081. ABORT:    NOP            ;LEA    SP,STACK
  1082. ABORTL:    MOV    CH,1        ;1 SEC. W/O CHARS.
  1083.     CALL    RECV
  1084.     JNAE    L00064
  1085.     JMP    ABORTL      ;LOOP UNTIL SENDER DONE
  1086. L00064:    MOV    AL,CAN      ;CONTROL X
  1087.     CALL    SEND        ;STOP SENDING END
  1088. ABORTW:    MOV    CH,1        ;1 SEC W/O CHARS.
  1089.     CALL    RECV
  1090.     JNAE    L00065
  1091.     JMP    ABORTW      ;LOOP UNTIL SENDER DONE
  1092. L00065:    MOV    AL,' '      ;GET A SPACE...
  1093.     CALL    SEND        ;TO CLEAR OUT CONTROL X
  1094.     PUSH    BX
  1095.     MOV    BX,OFFSET MSG09
  1096.     CALL    ILPRT       ;EXIT WITH ABORT MSG
  1097.     POP    BX
  1098.     JMP    CKDIS       ;CHECK FOR DISCONN.
  1099. CKABORT ENDP
  1100. ;
  1101. ;---->    INCRSNO: INCREMENT SECTOR #
  1102. ;
  1103. INCRSNO PROC    NEAR
  1104.     MOV    AL,SECTNO    ;INCR..
  1105.     INC    AL          ;..SECT..
  1106.     MOV        SECTNO,AL    ;..NUMBER
  1107.     RET
  1108. INCRSNO ENDP
  1109. ;
  1110. ;---->    ERASFIL: ERASE THE INCOMING FILE.
  1111. ;
  1112. ;IF IT EXISTS, ASK IF IT MAY BE ERASED.
  1113. ;
  1114. ERASFIL PROC     NEAR
  1115.     MOV    DX,OFFSET FCB      ;POINT TO CTL BLOCK
  1116.     MOV    CL,SRCHF    ;SEE IF IT..
  1117.     CALL    BDOS        ;..EXISTS
  1118.     INC    AL          ;FOUND?
  1119.     JNZ    L00066
  1120.     RET                 ;..NO, RETURN
  1121. L00066:    PUSH    BX
  1122.     MOV    BX,OFFSET MSG10
  1123.     CALL    ILPRT       ;PRINT:
  1124.     POP    BX
  1125.     CALL    KEYIN       ;GET CHAR
  1126.     LAHF
  1127.     XCHG    AL,AH
  1128.     PUSH    AX
  1129.     XCHG    AL,AH
  1130.     CALL    TYPEZZ      ;ECHO
  1131.     POP    AX
  1132.     XCHG    AL,AH
  1133.     SAHF    
  1134.     AND    AL,5FH      ;MAKE UPPER CASE
  1135.     CMP    AL,'Y'      ;WANT ERASED?
  1136.     JZ    L00067
  1137.     JMP    CKDIS       ;QUIT IF NOT ERASE
  1138. L00067:    CALL    CRLF        ;BACK TO START OF LINE
  1139. ;
  1140. ;ERASE OLD FILE
  1141. ;
  1142.     MOV    DX,OFFSET FCB      ;POINT TO FCB
  1143.     MOV    CL,ERASE    ;GET BDOS FNC
  1144.     CALL    BDOS        ;DO THE ERASE
  1145.     RET                 ;FROM "ERASFIL"
  1146. ERASFIL    ENDP
  1147. ;
  1148. ;---->    MAKEFIL: MAKES THE FILE TO BE RECEIVED
  1149. ;
  1150. MAKEFIL PROC    NEAR
  1151.     MOV    DX,OFFSET FCB      ;POINT TO FCB
  1152.     MOV    CL,MAKE     ;GET BDOS FNC
  1153.     CALL    BDOS        ;TO THE MAKE
  1154.     INC    AL          ;FF=BAD?
  1155.     JZ    L00068
  1156.     RET                 ;OPEN OK
  1157. ;DIRECTORY FULL - CAN'T MAKE FILE
  1158. L00068:    MOV    DX,OFFSET MSG22
  1159.     CALL    ERXIT
  1160. MAKEFIL    ENDP
  1161. ;
  1162. ;---->    OPENFIL: OPENS THE FILE TO BE SENT
  1163. ;
  1164. OPENFIL PROC    NEAR
  1165.     MOV    DX,OFFSET FCB      ;POINT TO FILE
  1166.     MOV    CL,OPEN     ;GET FUNCTION
  1167.     CALL    BDOS        ;OPEN IT
  1168.     INC    AL          ;OPEN OK?
  1169.     JZ    L00069
  1170.     JMP    OPENOK      ;..YES
  1171. L00069:    PUSH    DX
  1172.     MOV    DX,OFFSET MSG11
  1173.     CALL    ERXIT       ;..NO, ABORT
  1174.     POP    DX
  1175. ;
  1176. OPENOK:
  1177.     PUSH    BX
  1178.     MOV    BX,OFFSET MSG12
  1179.     CALL    ILPRT       ;PRINT:
  1180.     POP    BX
  1181.     MOV    AL,FCBSZH    ;GET FILE SIZE HIGH ORDER
  1182.     CALL    HEXO        ;PRINT IN HEX
  1183.     MOV    AL,FCBSZL    ;GET FILE SIZE LOW ORDER
  1184.     CALL    HEXO        ;PRINT IN HEX
  1185.     MOV    AL,'H'
  1186.     CALL    TYPEZZ      ;PRINT 'H' AFTER NUMBER
  1187.     CALL    CRLF        ;..THEN CRLF
  1188.     RET
  1189. OPENFIL ENDP
  1190. ;
  1191. ;---->    CLOSFIL: CLOSES THE RECEIVED FILE
  1192. ;
  1193. CLOSFIL PROC    NEAR
  1194.     MOV    DX,OFFSET FCB      ;POINT TO FILE
  1195.     MOV    CL,CLOSE    ;GET FUNCTION
  1196.     CALL    BDOS        ;CLOSE IT
  1197.     INC    AL          ;CLOSE OK?
  1198.     JZ    L00070
  1199.     RET                 ;..YES, RETURN
  1200. L00070:    MOV    DX,OFFSET MSG22A
  1201.     CALL    ERXIT       ;..NO, ABORT
  1202. CLOSFIL ENDP
  1203. ;
  1204. ;---->    RDSECT: READS A SECTOR
  1205. ;
  1206. ;FOR SPEED, THIS ROUTINE BUFFERS UP 16
  1207. ;SECTORS AT A TIME.
  1208. ;
  1209. RDSECT  PROC    NEAR
  1210.            MOV    AL,SECINBF    ;GET # SECT IN BUFF.
  1211.     DEC    AL          ;DECREMENT..
  1212.     MOV        SECINBF,AL    ;..IT
  1213.     JNS    L00071
  1214.     JMP    RDBLOCK     ;EXHAUSTED?  NEED MORE.
  1215. L00071:    MOV    BX,SECPTR    ;GET POINTER
  1216.     MOV    DX,80H      ;TO DATA 
  1217.     CALL    MOVE128     ;MOVE TO BUFFER
  1218.     MOV    SECPTR,BX    ;SAVE BUFFER POINTER
  1219.     RET                 ;FROM "READSEC"
  1220. ;
  1221. ;BUFFER IS EMPTY - READ IN ANOTHER BLOCK OF 16
  1222. ;
  1223. RDBLOCK LABEL    NEAR
  1224.     MOV    AL,EOFLG    ;GET EOF FLAG
  1225.     CMP    AL,1        ;IS IT SET/
  1226.     STC                 ;TO SHOW EOF
  1227.     JNZ    L00072
  1228.     RET                 ;GOT EOF
  1229. L00072:    MOV    CL,0        ;SECTORS IN BLOCK
  1230.     LEA    DX,DBUF     ;TO DISK BUFFER
  1231. RDSECLP LABEL    NEAR
  1232.     PUSH    CX
  1233.     PUSH    DX
  1234.     MOV    CL,STDMA    ;SET DMA..
  1235.     CALL    BDOS        ;..ADDR
  1236.     MOV    DX,OFFSET FCB
  1237.     MOV    CL,READ
  1238.     CALL    BDOS
  1239.     POP    DX
  1240.     POP    CX
  1241.     OR    AL,AL       ;READ OK?
  1242.     JNZ    L00073
  1243.     JMP    RDSECOK     ;YES
  1244. L00073:    DEC    AL          ;EOF?
  1245.     JZ    REOF        ; 1 = EOF (regular)
  1246.     DEC    AL
  1247.     JZ    L00074        ; 2 = ERROR (trans area too small)
  1248.     DEC    AL
  1249.     JZ    RDSECOK        ; 3 = EOF (partial block)
  1250. ; ALL OTHER RETURNS CONSIDERED ERROR !!!
  1251. ;
  1252. ;READ ERROR
  1253. ;
  1254. L00074:    MOV    DX,OFFSET MSG23
  1255.     CALL    ERXIT
  1256. ;
  1257. RDSECOK:
  1258.     MOV    BX,80H
  1259.     PUSH    SI
  1260.     PUSHF
  1261.     ADD    BX,DX
  1262.     RCR    SI,1
  1263.     POPF
  1264.     RCL    SI,1
  1265.     POP    SI          ;TO NEXT BUFF
  1266.     XCHG    BX,DX       ;BUFF TO DE
  1267.     INC    CL          ;MORE SECTORS?
  1268.     MOV    AL,CL       ;GET COUNT
  1269.     CMP    AL,16       ;DONE?
  1270.     JNZ    L00075
  1271.     JMP    RDBFULL     ;..YES, BUFF IS FULL
  1272. L00075:    JMP    RDSECLP     ;READ MORE
  1273. ;
  1274. REOF:    MOV    AL,1
  1275.     MOV        EOFLG,AL    ;SET EOF FLAG
  1276.     MOV    AL,CL
  1277. ;
  1278. ;BUFFER IS FULL, OR GOT EOF
  1279. ;
  1280. RDBFULL:
  1281.     MOV    SECINBF,AL    ;STORE SECTOR COUNT
  1282.     MOV    BX,OFFSET DBUF    ;INIT BUFFER..
  1283.     MOV    SECPTR,BX    ;..POINTER
  1284.     MOV    DX,80H      ;RESET..
  1285.     MOV    CL,STDMA    ;..DMA..
  1286.     CALL    BDOS        ;..ADDR
  1287.     JMP    RDSECT      ;PASS SECT TO CALLER
  1288. RDSECT    ENDP
  1289. ;
  1290. ;---->    WRSECT: WRITE A SECTOR
  1291. ;
  1292. ;WRITES THE SECTOR INTO A BUFFER.  WHEN 16
  1293. ;HAVE BEEN WRITTEN, WRITES THE BLOCK TO DISK.
  1294. ;
  1295. ;ENTRY POINT "WRBLOCK" FLUSHES THE BUFFER AT EOF.
  1296. ;
  1297. WRSECT  PROC    NEAR
  1298.            MOV    BX,SECPTR    ;GET BUFF ADDR
  1299.     XCHG    BX,DX       ;TO DE FOR MOVE
  1300.     MOV    BX,80H      ;FROM HERE
  1301.     CALL    MOVE128     ;MOVE TO BUFFER
  1302.     XCHG    BX,DX       ;SAVE NEXT..
  1303.     MOV    SECPTR,BX    ;..BLOCK POINTER
  1304.     MOV    AL,SECINBF    ;BUMP THE..
  1305.     INC    AL          ;..SECTOR #..
  1306.     MOV        SECINBF,AL    ;..IN THE BUFF
  1307.     CMP    AL,16       ;HAVE WE 16?
  1308.     JZ    WRBLOCK
  1309.     RET                 ;NO, RETURN
  1310. ;
  1311. ;---->    WRBLOCK: WRITES A BLOCK TO DISK
  1312. ;
  1313. WRBLOCK:
  1314.      MOV    AL,SECINBF    ;# SECT IN BUFFER
  1315.     OR    AL,AL       ;0 MEANS END OF FILE
  1316.     JNZ    L00077
  1317.     RET                 ;NONE TO WRITE
  1318. L00077:    MOV    CL,AL       ;SAVE COUNT
  1319.     LEA    DX,DBUF     ;POINT TO DISK BUFF
  1320. DKWRLP:    PUSH    BX
  1321.     PUSH    DX
  1322.     PUSH    CX
  1323.     MOV    CL,STDMA    ;SET DMA
  1324.     CALL    BDOS        ;TO BUFFER
  1325.     MOV    DX,OFFSET FCB      ;THEN WRITE
  1326.     MOV    CL,WRITE    ;..THE..
  1327.     CALL    BDOS        ;..BLOCK
  1328.     POP    CX
  1329.     POP    DX
  1330.     POP    BX
  1331.     OR    AL,AL
  1332.     JZ    L00078
  1333.     JMP    WRERR       ;OOPS, ERROR
  1334. L00078:    MOV    BX,80H      ;LENGTH OF 1 SECT
  1335.     PUSH    SI
  1336.     PUSHF
  1337.     ADD    BX,DX
  1338.     RCR    SI,1
  1339.     POPF
  1340.     RCL    SI,1
  1341.     POP    SI          ;HL= NEXT BUFF
  1342.     XCHG    BX,DX       ;TO DE FOR SETDMA
  1343.     DEC    CL          ;MORE SECTORS?
  1344.       JZ    L00079
  1345.     JMP    DKWRLP      ;..YES, LOOP
  1346. L00079:    XOR    AL,AL       ;GET A ZERO
  1347.     MOV       SECINBF,AL    ;RESET # OF SECTORS
  1348.     MOV    BX,OFFSET DBUF    ;RESET BUFFER..
  1349.     MOV    SECPTR,BX    ;..POINTER
  1350. ;
  1351.     MOV    DX,80H      ;07/13/79 MOD..
  1352.     MOV    CL,STDMA    ;..TO RESET..
  1353.     CALL    BDOS        ;..DMA ADDR.
  1354. ;
  1355.     RET
  1356. ;
  1357. WRERR:    MOV    CL,CAN      ;CANCEL..
  1358.     CALL    SEND        ;..SENDER
  1359.     MOV    DX,OFFSET MSG24
  1360.     CALL    ERXIT       ;EXIT W/MSG:
  1361. WRSECT  ENDP
  1362. ;
  1363. ;---->    RECV: RECEIVE A CHARACTER
  1364. ;
  1365. ;TIMEOUT TIME IS IN B, IN SECONDS.  ENTRY VIA
  1366. ;"RECVDG" DELETES GARBAGE CHARACTERS ON THE
  1367. ;LINE.  FOR EXAMPLE, HAVING JUST SENT A SECTOR,
  1368. ;CALLING RECVDG WILL DELETE ANY LINE-NOISE-INDUCED
  1369. ;CHARACTERS "LONG" BEFORE THE ACK/NAK WOULD
  1370. ;BE RECEIVED.
  1371. ;
  1372. RECCHAR PROC    NEAR
  1373. RECVDG    LABEL    NEAR        ;RECEIVE W/GARBAGE DELETE
  1374. RECV:    PUSH    DX          ;SAVE
  1375. ;
  1376.     IF    FASTCLK     ;4MHZ?
  1377.     MOV    AL,CH       ;GET TIME REQUEST
  1378.     ADD    AL,AL       ;DOUBLE IT
  1379.     MOV    CH,AL       ;NEW TIME IN B
  1380.     ENDIF
  1381. ;
  1382. MSEC:    MOV    DX,200h        ;1 SEC DCR COUNT
  1383.     CALL    CKABORT     ;CHECK FOR EXIT REQUEST
  1384. MWTI:    Call    Statit        ; Get status
  1385.     Or    Al,Al        ; Character Available?
  1386.     JZ    L00080
  1387.     JMP    MCHAR       ;GOT CHAR
  1388. L00080:    DEC    DL          ;COUNT..
  1389.     JZ    L00081
  1390.     JMP    MWTI        ;..DOWN..
  1391. L00081:    DEC    DH          ;..FOR..
  1392.     JZ    L00082
  1393.     JMP    MWTI        ;..TIMEOUT
  1394. L00082:    DEC    CH          ;MORE SECONDS?
  1395.     JZ    L00083
  1396.     JMP    MSEC        ;YES, WAIT
  1397. ;
  1398. ;MODEM TIMED OUT RECEIVING
  1399. ;
  1400. L00083:    POP    DX          ;RESTORE D,E
  1401.     STC                 ;CARRY SHOWS TIMEOUT
  1402.     RET
  1403. ;
  1404. ;GOT CHAR FROM MODEM
  1405. ;
  1406. MCHAR:    Call    Getit        ; Get character
  1407.     POP    DX          ;RESTORE DE
  1408. ;
  1409. ;CALC CHECKSUM
  1410. ;
  1411.     LAHF
  1412.     XCHG    AL,AH
  1413.     PUSH    AX
  1414.     XCHG    AL,AH       ;SAVE THE CHAR
  1415.     ADD    AL,CL       ;ADD TO CHECKSUM
  1416.     MOV    CL,AL       ;SAVE CHECKSUM
  1417. ;
  1418. ;CHECK IF MONITORING REC'D DATA
  1419. ;
  1420.     MOV    AL,RSEEFLG    ;SEE RECEIVED..
  1421.     OR    AL,AL       ;..DATA?
  1422.     JNZ    L00084
  1423.     JMP    MONIN       ;..YES
  1424. ;
  1425. ;CHECK IF "VIEWING" AND THIS IS A DATA CHAR
  1426. ;
  1427. L00084:    MOV    AL,VSEEFLG    ;VIEWING..
  1428.     OR    AL,AL       ;..DATA?
  1429.     JZ    L00085
  1430.     JMP    NOMONIN     ;..NO
  1431. ;
  1432. ;"VIEW" REQUESTED.  SHOW THE CHAR IT IS DATA
  1433. ;
  1434. L00085:    MOV    AL,DATAFLG    ;GET DATA FLAG
  1435.     OR    AL,AL       ;TEST IT
  1436.     JNZ    MONIN  
  1437.     JMP    NOMONIN     ;..OFF, NOT DATA
  1438. MONIN:    POP    AX
  1439.     XCHG    AL,AH
  1440.     SAHF                ;..IS DATA,
  1441.     LAHF
  1442.     XCHG    AL,AH
  1443.     PUSH    AX
  1444.     XCHG    AL,AH       ;GET IT,
  1445.     CALL    SHOW        ;..AND SHOW IT
  1446. NOMONIN:
  1447.     POP    AX
  1448.     XCHG    AL,AH
  1449.     SAHF                ;RESTORE CHAR
  1450.     OR    AL,AL       ;CARRY OFF: NO ERROR
  1451.     RET                 ;FROM "RECV"
  1452. RECCHAR    ENDP
  1453. ;
  1454. ;---->    SEND: SEND A CHARACTER TO THE MODEM
  1455. ;
  1456. SEND    PROC    NEAR
  1457.          LAHF
  1458.     XCHG    AL,AH
  1459.     PUSH    AX
  1460.     XCHG    AL,AH       ;SAVE THE CHAR
  1461. ;
  1462. ;CHECK IF MONITORING SENT DATA
  1463. ;
  1464.     MOV    AL,SSEEFLG    ;CHECK IF MONITORING..
  1465.     OR    AL,AL       ;..SENT DATA
  1466.     JNZ    L00087
  1467.     JMP    MONOUT      ;..YES
  1468. ;
  1469. ;CHECK IF "VIEWING" THE FILE
  1470. ;
  1471. L00087:    MOV    AL,VSEEFLG    ;GET VIEW FLAG
  1472.     OR    AL,AL       ;TEST IT
  1473.     JZ    L00088
  1474.     JMP    NOMONOT     ;NO
  1475. L00088:    MOV    AL,DATAFLG    ;IS THIS
  1476.     OR    AL,AL       ;..DATA?
  1477.     JNZ    MONOUT 
  1478.     JMP    NOMONOT     ;..NO.
  1479. MONOUT:    POP    AX
  1480.     XCHG    AL,AH
  1481.     SAHF                ;GET THE CHAR
  1482.     LAHF
  1483.     XCHG    AL,AH
  1484.     PUSH    AX
  1485.     XCHG    AL,AH       ;SAVE IT
  1486.     CALL    SHOW        ;SHOW IT
  1487. NOMONOT:
  1488.         POP    AX
  1489.     XCHG    AL,AH
  1490.     SAHF                ;RESTORE CHAR
  1491.     LAHF
  1492.     XCHG    AL,AH
  1493.     PUSH    AX
  1494.     XCHG    AL,AH       ;SAVE IT
  1495.     ADD    AL,CL       ;CALC CKSUM
  1496.     MOV    CL,AL       ;SAVE CKSUM
  1497.     Pop    Ax
  1498.     Xchg    Al,Ah
  1499.     Sahf
  1500. Sendl:    Call    Sendit        ;Send character
  1501.     Or    Ah,Ah        ;Was character sent
  1502.     Jz    Sendl        ;If not, try again!
  1503.     RET                 ;FROM "SEND"
  1504. SEND    ENDP
  1505. ;
  1506. ;---->    WAITNAK: WAITS FOR INITIAL NAK
  1507. ;
  1508. ;TO ENSURE NO DATA IS SENT UNTIL THE RECEIVING
  1509. ;PROGRAM IS READY, THIS ROUTINE WAITS FOR THE
  1510. ;THE FIRST TIMEOUT-NAK FROM THE RECEIVER.  (E)
  1511. ;CONTAINS THE # OF SECONDS TO WAIT.
  1512. ;
  1513. WAITNAK PROC    NEAR
  1514.     MOV    AL,VSEEFLG    ;VIEWING?
  1515.     OR    AL,AL
  1516.     JNZ    L00091
  1517.     JMP    WAITNPR     ;PRINT MSG
  1518. L00091:    MOV    AL,QFLG     ;QUIET..
  1519.     OR    AL,AL       ;..MODE?
  1520.     JNZ    WAITNPR
  1521.     JMP    WAITNLP     ;YES, SKIP MSG
  1522. WAITNPR LABEL    NEAR
  1523.     PUSH    BX
  1524.     MOV    BX,OFFSET MSG13
  1525.     CALL    ILPRT       ;PRINT:
  1526.     POP    BX
  1527. WAITNLP LABEL    NEAR
  1528.     CALL    CKABORT     ;ABORT IF LOCAL CTL-X
  1529.     MOV    CH,1        ;TIMEOUT DELAY
  1530.     CALL    RECV        ;DID WE GET..
  1531.     CMP    AL,NAK      ;..A NAK?
  1532.     JNZ    L00093
  1533.     RET                 ;YES, SEND BLOCK
  1534. ;
  1535. L00093  LABEL    NEAR
  1536.     IF CANFLG
  1537.     CMP    AL,CAN      ;CTL-X FROM REMOTE?
  1538.     JNZ    L00094
  1539.     JMP    ABORT       ;..YES, ABORT
  1540. L00094  LABEL    NEAR
  1541.     ENDIF
  1542. ;
  1543.     DEC    DL          ;80 TRIES?
  1544.     JNZ    L00095
  1545.     JMP    ABORT       ;YES, ABORT
  1546. L00095:    JMP    WAITNLP     ;NO, LOOP
  1547. WAITNAK    ENDP
  1548. ;
  1549. ;
  1550. ;---->    PROCOPT: PROCESS COMMAND OPTIONS
  1551. ; 
  1552. ;1) SAVES THE PRIMARY OPTION IN 'OPTION';
  1553. ;2) IF OPTION 'H' (HELP) IS ASKED FOR,
  1554. ;TRANSFERS DIRECTLY TO THE HELP PRINT;
  1555. ;3) SCANS THE SUB-OPTION CHARACTERS, AND FOR
  1556. ;EACH FOUND, ZEROS THE APPROPRIATE ENTRY IN
  1557. ;THE OPTION TABLE.  FOR EXAMPLE, IF 'D' IS 
  1558. ;CODED (DISCONNECT) THEN THE 'D' STORED AT
  1559. ;'DISCFLG' IS SET TO 0 SO IT CAN BE TESTED
  1560. ;LATER.
  1561. ;
  1562. PROCOPT PROC    NEAR
  1563.         MOV    DX,OFFSET FCBNAME ;TO PRIMARY OPT.
  1564.     XCHG    BX,DX
  1565.     MOV    AL,ES:[BX]      ;GET PRIMARY OPT.
  1566.        XCHG    BX,DX                   
  1567.     MOV       OPTION,AL    ;SAVE IT
  1568.         CMP     AL,'X'        ;MODEM EXAMPLES?
  1569.         JNZ    L00096
  1570.     JMP    EXAM        ;..YES, GIVE EXAMPLES
  1571. L00096:    CMP    AL,'H'      ;MODEM H(ELP)?
  1572.     JNZ    OPTLP  
  1573.     JMP    HELP        ;..YES, GIVE HELP
  1574. OPTLP:    PUSHF
  1575.     INC    DX              ;TO SECONDARY OPTION
  1576.     POPF                                    
  1577.     XCHG    BX,DX
  1578.     MOV    AL,ES:[BX]      ;GET CHAR
  1579.     XCHG    BX,DX                  
  1580. ;
  1581. ;IF YOU MOD THIS PROGRAM FOR >7 OPTIONS,
  1582. ;YOU MUST CHANGE THE FOLLOWING, SINCE
  1583. ;THERE WON'T BE A ' ' AFTER THE OPTION
  1584. ;IF A BAUD RATE WAS SPECIFIED.
  1585. ;
  1586.     CMP    AL,' '      ;NO MORE OPT'NS?
  1587.     JNZ    L00097
  1588.     JMP    ENDOPT      ;..YES
  1589. ;SET THE APPROP. OPT: STORE 0 IN IT
  1590. L00097:    MOV    BX,OFFSET OPTBL        ;HL = ADDR OF 'OAQDSRV'
  1591.     MOV    CX,TABLESIZE        ;OPT TABLE LEN
  1592. OPTCK:    CMP    AL,BYTE PTR [BX] ;FOUND THE OPTION?
  1593.     JZ    L00098
  1594.     JMP    OPTNO       ;NO, DON'T SET IT
  1595. L00098:    MOV    BYTE PTR [BX],0    ;SET THE OPTION
  1596.     JMP    OPTLP       ;GET NEXT OPTION
  1597. OPTNO:    PUSHF
  1598.     INC    BX
  1599.     POPF                ;TO NEXT
  1600.     DEC    CX          ;MORE?
  1601.     JZ    L00099
  1602.     JMP    OPTCK
  1603. ;OPTION NOT IN TABLE
  1604. L00099:    JMP    BADOPT      ;SHOW BAD SUB OPTION
  1605. ;
  1606. ENDOPT:    Mov    Bx,Offset FCBEXT    ; Get address of extentsion
  1607.     MOV    AL,ES:[BX]          ;GET CHAR
  1608.     CMP    AL,' '          ;NO MORE OPT'NS?
  1609.     Jnz    Brate            ;If so, check specified baud rate
  1610.     Jmp    Endext            ;Exit!
  1611. ;
  1612. ;  This function sets the baud rate.
  1613. ;
  1614. Brate:    Mov    Si,Offset Bdtab        ; Get address of table
  1615.     Mov    Ah,[Si]            ; Number entries
  1616.     Xor    Cx,Cx            ; Clear count
  1617. ;
  1618. Bloop:    Inc    Si            ; Point to char string
  1619.     Mov    Cl,03h            ; Get string count
  1620.     Mov    Di,Bx            ; Source string in FCB
  1621.     Rep    Cmpsb            ; Check specified baudrate from tbl
  1622.     Jz    Brfnd            ; If ok, then we found the baudrate
  1623. Bloop1:    Inc    Si            ; Bump pointer
  1624.     Loop    Bloop1            ; Until end of string
  1625.     Dec    Ah            ; Bump entry count
  1626.     Jnz    Bloop            ; Loop
  1627.     Mov    Al,10h            ; Default to 9600
  1628.     Jmp    Bset            ; Set bud rate
  1629. ;
  1630. Brfnd:    Mov    Al,[Si]            ; Get new baud rate
  1631. ;
  1632. Bset:    Mov    Brr,Al            ; Save Rx baud rate
  1633.     Mov    Brt,Al            ; Save Tx baud rate
  1634. Endext:    ret
  1635. ;
  1636. ;IF "VIEW" WAS ASKED FOR, SET QUIET FLAG
  1637. ;
  1638.     MOV    AL,VSEEFLG    ;VIEW..
  1639.     OR    AL,AL       ;..ASKED FOR?
  1640.     JZ    L00100
  1641.     RET                 ;..NO, RET FROM 'PROCOPT'
  1642. L00100:    MOV       QFLG,AL     ;YES, NO HDR/CKSUM PRT
  1643.     RET                 ;FROM 'PROCOPT'
  1644. PROCOPT ENDP
  1645. ;
  1646. ;DONE - CLOSE UP SHOP
  1647. ;
  1648. DONE    PROC    NEAR
  1649.          MOV    AL,VSEEFLG    ;VIEWING?
  1650.     OR    AL,AL
  1651.     JNZ    L00101
  1652.     JMP    DONETC      ;SHOW MSG
  1653. L00101:    MOV    AL,QFLG     ;QUIET
  1654.     OR    AL,AL       ;..MODE?
  1655.     JNZ    DONETC 
  1656.     JMP    DONECTE     ;YES, CK TERM/ECHO
  1657. DONETC:    PUSH    BX
  1658.     MOV    BX,OFFSET MSG14
  1659.     CALL    ILPRT
  1660.     POP    BX
  1661. ;
  1662. ;CHECK IF TERMINAL OR ECHO SUB COMMAND
  1663. ;WAS SPECIFIED
  1664. ;
  1665. DONECTE:
  1666.     MOV    AL,TERMFLG    ;TERM?
  1667.     OR    AL,AL
  1668.     JNZ    L00103
  1669.     JMP    TERM        ;..YES
  1670. L00103:    MOV    AL,ECHOFLG    ;ECHO?
  1671.     OR    AL,AL
  1672.     JNZ    CKDIS 
  1673.     JMP    TRMECHO     ;..YES
  1674. ;
  1675. ;FALL INTO 'CKDIS'
  1676. ;
  1677. ;---->    CKDIS: CHECK IF DISCONNECT REQUESTED
  1678. ;
  1679. ;THIS ROUTINE IS JUMPED TO AT THE END OF
  1680. ;PROCESSING, AND DISCONNECTS THE PHONE IF
  1681. ;'D' WAS SPECIFIED AS A SUB-OPTION.
  1682. ;
  1683. CKDIS:    MOV    AL,DISCFLG    ;CHECK 'D' FLAG
  1684.     OR    AL,AL       ;REQUESTED?
  1685. ;
  1686. ;AWAIT C/R TO DISC or space bar to just exit SO WE DON'T LOSE THE PHONE
  1687. ;
  1688.     PUSH    BX
  1689.     MOV    BX,OFFSET MSG15
  1690.     CALL    ILPRT
  1691.     POP    BX
  1692.     CALL    KEYIN
  1693.     LAHF
  1694.     XCHG    AL,AH
  1695.     PUSH    AX
  1696.     XCHG    AL,AH
  1697.     CALL    CRLF
  1698.     POP    AX
  1699.     XCHG    AL,AH
  1700.     SAHF    
  1701.     CMP    AL,20H
  1702.     JE    DISCONN
  1703.     CMP    AL,0DH
  1704.     JNE    CKDIS
  1705.  
  1706. ;
  1707. ;---->    DISCONN: DISCONNECT THE PHONE
  1708. ;
  1709.     MOV    BYTE PTR Misc_CCB.Function,14    ; Function - Set modem signals
  1710.     MOV    BYTE PTR Misc_CCB.Character,0    ; Reset all bits
  1711.     MOV    DX,OFFSET Misc_CCB        ; Packet at DS:DX
  1712.     MOV    BYTE PTR Misc_CCB.Buffer,1    ; Device number 1
  1713.     MOV    BX,3                ; Handle for Comms
  1714.     MOV    AX,4402H            ; IOCTOL function
  1715.     INT    21H                ; Call MS-DOS
  1716.  
  1717. DISCONN:
  1718.     PUSH    BX
  1719.     MOV    BX,OFFSET msg16
  1720.     CALL    Ilprt
  1721.     POP    BX
  1722.     JMP    Exit
  1723. DONE    ENDP
  1724. ;
  1725. ;NO DISCONNECT, TYPEZZ MSG AS REMINDER THAT PHONE'S
  1726. ;ON HOOK
  1727. ;
  1728. ;
  1729. ;---->    INITMOD: INITIALIZED THE MODEM
  1730. ;
  1731. ;THIS ROUTINE IS USED TO INITIALIZE SERIAL
  1732. ;PORT USED BY THE PROGRAM. 
  1733. ;
  1734. ;
  1735. ;
  1736. ;    INIT COMM PORTS
  1737. ;    
  1738. INITMOD PROC    NEAR
  1739.     Mov    AX,CS            ; Set up Segment and offset
  1740.     Mov    Word Ptr Bsegm,AX    ; of our comms. buffer
  1741.     Mov    AX,Offset Comm_buffer    ; .
  1742.     Mov    Word Ptr Boff,AX    ; ..
  1743. ;
  1744.     MOV    DX,OFFSET INIT_CCB    ; DS:DX points to control block
  1745.     MOV    AX,4402H        ; IOCTL function program to default
  1746.     MOV    BX,3            ; File handle for comms
  1747.     INT    21H            ; Call MS-DOS
  1748. ;
  1749. ; Here we have to enable the receiver
  1750. ;
  1751.     Mov    Byte Ptr MISC_CCB.FUNCTION,04    ; Enable receiver
  1752.     MOV    DX,OFFSET MISC_CCB    ; DS:DX points to control block
  1753.     MOV    AX,4402H        ; IOCTL function program to default
  1754.     MOV    BX,3            ; File handle for comms
  1755.     INT    21H            ; Call MS-DOS
  1756. ;
  1757. ; Bring up DTR,RTS and SRTS
  1758. ;
  1759.  
  1760.     MOV    BYTE PTR Misc_CCB.Function,14        ; Set modem signals
  1761.     MOV    BYTE PTR Misc_CCB.Character,1110B    ; DTR, RTS and SRTS.
  1762.     MOV    BYTE PTR Misc_CCB.Buffer,1        ; Comm port
  1763.     MOV    DX,OFFSET Misc_CCB            ; Packet at DS:DX
  1764.     MOV    AX,4402H                ; Function IOCTL
  1765.     MOV    BX,3                    ; Handle for comms
  1766.     INT    21H                    ; Call MS-DOS
  1767.  
  1768.  
  1769.     RET
  1770. ;
  1771. INITMOD    ENDP
  1772. ;
  1773. Statit    Proc    Near
  1774. ;
  1775. ; See if there is a character available from the serial port
  1776. ;
  1777.     Push    Bx                ; Save registers
  1778.     Push    Dx
  1779.     MOV    AX,4402H            ; IOCTL function input Char.
  1780.     MOV    BX,3                ; File handle for AUX
  1781.     MOV    DX,OFFSET IN_CCB        ; DS:DX points to control blk.
  1782.     INT    21H                ; Call MS-DOS
  1783. ;
  1784.     Mov    Al,BYTE PTR IN_CCB.RETURN_CODE    ; Did we get a character?
  1785.     Pop    Dx                ; Restore registers
  1786.     Pop    Bx
  1787.     Ret                    ; Exit
  1788. ;
  1789. Statit    Endp
  1790. ;
  1791. Getit    Proc    Near
  1792. ;
  1793.     MOV    AL,BYTE PTR IN_CCB.CHARACTER    ; GET CHAR
  1794.     Ret
  1795. ;
  1796. Getit    Endp
  1797. ;
  1798. ; On Entry:
  1799. ;        Al = Character
  1800. ;
  1801. ; On Exit:
  1802. ;        Ah = Status
  1803. ;             FFh - Character sent
  1804. ;             00h - Character not sent
  1805. ;        Al = Character
  1806. ;
  1807. Sendit    Proc    Near
  1808. ;
  1809. ; Output character to serial port using MS-DOS IOCTL
  1810. ;
  1811.     Push    Bx                ; Save Register
  1812.     Push    Dx
  1813. ;    
  1814.     MOV    BYTE PTR OUT_CCB.CHARACTER,AL    ; Character in control block
  1815.     MOV    AX,4402H            ; IOCTL function out
  1816.     MOV    BX,3                ; Handle for AUX
  1817.     MOV    DX,OFFSET OUT_CCB        ; DS:DX points to control block
  1818.     INT    21H                ; Call MS-DOS
  1819. ;
  1820.     Mov    Ah,Out_CCB.Return_code        ; Get status of operation
  1821.     Mov    Al,Out_CCB.Character        ; Get character sent
  1822.     Pop    Dx                ; Restore registers
  1823.     Pop    Bx
  1824.     Ret
  1825. ;
  1826. Sendit    Endp
  1827. ;
  1828. ;
  1829. ;---->    MOVEFCB: MOVES FCB(2) TO FCB
  1830. ;
  1831. ;I ATTEMPTED TO MAKE THE MODEM COMMAND 'NATURAL',
  1832. ;I.E. MODEM SEND FILENAME (MODEM S FN.FT) RATHER
  1833. ;THAT MODEM FILENAME SEND (MODEM FN.FT S) SO THIS
  1834. ;ROUTINE MOVES THE FILENAME FROM THE SECOND FCB
  1835. ;TO THE FIRST
  1836. ;
  1837. MOVEFCB PROC    NEAR
  1838.     MOV    BX,OFFSET FCB2  ;FROM
  1839.     MOV    DX,OFFSET FCB   ;TO
  1840.     MOV    CH,16           ;LEN
  1841.         PUSH    DS        ;SAVE DS
  1842.         PUSH    ES        ;MOVE ES ...
  1843.         POP    DS        ;... TO DS
  1844.     CALL    MOVE            ;DO THE MOVE
  1845.     POP    DS        ;RESTORE DS    
  1846.     XOR    AL,AL           ;GET 0
  1847.     MOV       FCBCR,AL        ;ZERO CURRENT RECORD
  1848.     MOV      FCBRR,AL        ;..AND RANDOM RECORD
  1849.     RET         
  1850. MOVEFCB    ENDP
  1851. ;
  1852. ;---->    SHOW: SHOWS CHAR SENT/RECEIVED
  1853. ;
  1854. ;CR, LF, AND TAB ARE SHOWN.  ALL OTHER
  1855. ;NON-PRINTABLE CHARACTERS ARE SHOWN IN
  1856. ;HEX AS (XX)
  1857. ;
  1858. SHOW    PROC    NEAR
  1859.          CMP    AL,LF       ;LF?
  1860.     JNZ    L00122
  1861.     JMP    CTYPEZZ     ;..YES, TYPEZZ IT
  1862. L00122:    CMP    AL,CR       ;CR?
  1863.     JNZ    L00123
  1864.     JMP    CTYPEZZ     ;..YES, TYPEZZ IT
  1865. L00123:    CMP    AL,09       ;TAB
  1866.     JNZ    L00124
  1867.     JMP    CTYPEZZ     ;..YES, TYPEZZ IT
  1868. L00124:    CMP    AL,' '      ;CTL-CHR?
  1869.     JAE    L00125
  1870.     JMP    SHOWHEX     ;YES, SHOW IN HEX
  1871. L00125:    CMP    AL,7FH      ;DEL?
  1872.     JAE    SHOWHEX
  1873.     JMP    CTYPEZZ     ;NO, TYPEZZ THE CHAR
  1874. SHOWHEX LABEL    NEAR
  1875.     LAHF
  1876.     XCHG    AL,AH
  1877.     PUSH    AX
  1878.     XCHG    AL,AH       ;SAVE THE CHAR
  1879.     MOV    AL,'('      ;TYPEZZ..
  1880.     CALL    CTYPEZZ     ;..'('
  1881.     POP    AX
  1882.     XCHG    AL,AH
  1883.     SAHF                ;THEN..
  1884.     CALL    HEXO        ;..THE CHAR
  1885.     MOV    AL,')'      ;THEN..
  1886.     JMP    CTYPEZZ     ;..')' AND RETURN.
  1887. ;
  1888. ;---->    CTYPEZZ: TYPEZZS VIA CP/M SO TABS ARE EXPANDED
  1889. ;
  1890. CTYPEZZ LABEL   NEAR
  1891.     PUSH    CX          ;SAVE..
  1892.     PUSH    DX          ;..ALL..
  1893.     PUSH    BX          ;..REGS
  1894.     MOV    DL,AL       ;CHAR TO E
  1895.     MOV    CL,WRCON    ;GET BDOS FNC
  1896.     CALL    BDOS        ;PRIN THE CHR
  1897.     POP    BX          ;RESTORE..
  1898.     POP    DX          ;..ALL..
  1899.     POP    CX          ;..REGS
  1900.     RET                 ;FROM "CTYPEZZ"
  1901. SHOW    ENDP
  1902. ;
  1903. CRLF    PROC    NEAR
  1904.          MOV    AL,CR
  1905.     CALL    TYPEZZ
  1906.     MOV    AL,LF
  1907. CRLF    ENDP
  1908. ;
  1909. ;---->    TYPEZZ: TYPEZZ VIA DIRECT BDOS ACCESS
  1910. ;
  1911. ;THIS ROUTINE BYPASSES CP/M'S CTL-S, CTL-C
  1912. ;TESTS.
  1913. ;
  1914. TYPEZZ    PROC    NEAR
  1915. ;
  1916. ; Now we output the character to the display using the firmware
  1917. ;
  1918.     PUSH    AX                ; save char
  1919.     PUSH    Di
  1920.     XOR    DI,DI                ; output to console
  1921.     INT    ROM
  1922.     Pop    Di
  1923.     POP    AX                ; restore char
  1924.     RET                 ;FROM "TYPEZZ"
  1925. TYPEZZ    ENDP
  1926. ;
  1927. ;KEYBOARD STATUS
  1928. ;
  1929. ;    This routine has been changed from CP/M-86: the service for
  1930. ;    MS-DOS differs in several respects.. [CP/M version uses
  1931. ;    x'FE' in DL and calls "DCON" which isn't supported
  1932. ;    in MSDOS .. SO we use the direct bios call.
  1933. ; 
  1934. ;
  1935. STAT    PROC    NEAR
  1936.     Push    Cx                ; Save register
  1937.     Push    Di
  1938.     MOV    DI,4                ; Get console status
  1939.     INT    ROM
  1940.     Mov    Al,Cl                ; Get status
  1941.      OR    AL,AL               ;0 => NOT READY
  1942.     Pop    Di                ; Restore registers
  1943.     Pop    Cx
  1944.     RET
  1945. STAT    ENDP
  1946. ;
  1947. ;KEYBOARD INPUT
  1948. ;
  1949. ;    This routine has been changed to use direct BIOS interface.
  1950. ;    CTRL-C sequences are intercepted and interpreted as 
  1951. ;    termination requests
  1952. ;
  1953. KEYIN    PROC    NEAR
  1954.  
  1955.     Push    Bx
  1956.     Push    Cx                ; Save registers
  1957.     Push    Di
  1958.  
  1959. Keylp:    MOV    DI,2                ; input from KEYBOARD
  1960.     INT    ROM
  1961.     Or    CL,CL
  1962.     JZ    Keylp                ; skip if no input
  1963. ;
  1964.     CMP    AL,CTLCCHR            ; Was it a "Control-C"
  1965.     JNE    Keyext                ; If not, exit
  1966.     MOV    AL,CTLCHAR            ; Substitute a real ^C
  1967. ;
  1968. Keyext:    Pop    Di                ; Restore registers
  1969.     Pop    Cx
  1970.     Pop    Bx
  1971.     Ret
  1972.  
  1973. KEYIN     ENDP
  1974. ;
  1975. ;HEX OUTPUT
  1976. ;
  1977. HEXO    PROC    NEAR
  1978.          LAHF
  1979.     XCHG    AL,AH
  1980.     PUSH    AX
  1981.     XCHG    AL,AH       ;SAVE FOR RIGHT DIGIT
  1982.     RCR    AL,1        ;RIGHT..
  1983.     RCR    AL,1        ;..JUSTIFY..
  1984.     RCR    AL,1        ;..LEFT..
  1985.     RCR    AL,1        ;..DIGIT..
  1986.     CALL    NIBBL       ;PRINT LEFT DIGIT
  1987.     POP    AX
  1988.     XCHG    AL,AH
  1989.     SAHF                ;RESTORE RIGHT
  1990. NIBBL:    AND    AL,0FH      ;ISOLATE DIGIT
  1991.     CMP    AL,10       ;IS IS <10?
  1992.     JAE    L00127
  1993.     JMP    ISNUM       ;YES, NOT ALPHA
  1994. L00127:    ADD    AL,7        ;ADD ALPHA BIAS
  1995. ISNUM:    ADD    AL,'0'      ;MAKE PRINTABLE
  1996.     JMP    TYPEZZ      ;..THEN TYPEZZ IT
  1997. HEXO    ENDP
  1998. ;
  1999. ;---->    CKQUIT: QUIT/RETRY AFTER MULTIPLE ERRS.
  2000. ;
  2001. ;RETURNS W/ ZERO SET IF "RETRY" ASKED FOR
  2002. ;
  2003. CKQUIT    PROC    NEAR
  2004.            XOR    AL,AL       ;ZERO..
  2005.     MOV       ERRCT,AL    ;..ERROR COUNT
  2006.     PUSH    BX
  2007.     MOV    BX,OFFSET MSG18
  2008.     CALL    ILPRT       ;PRINT:
  2009.     POP    BX
  2010.     CALL    KEYIN       ;QUIT/RETRY
  2011.     LAHF
  2012.     XCHG    AL,AH
  2013.     PUSH    AX
  2014.     XCHG    AL,AH
  2015.     CALL    CRLF
  2016.     POP    AX
  2017.     XCHG    AL,AH
  2018.     SAHF    
  2019.     AND    AL,5FH      ;MAKE UPPER CASE
  2020.     CMP    AL,'R'      ;RETRY?
  2021.     JNZ    L00128
  2022.     RET                 ;'KEEP ON TRUCKIN'
  2023. L00128:    CMP    AL,'Q'      ;QUIT?
  2024.     JZ    L00129
  2025.     JMP    CKQUIT      ;NO, ASK AGAIN
  2026. L00129:    OR    AL,AL       ;SET NON-ZERO
  2027.     RET
  2028. CKQUIT    ENDP
  2029. ;
  2030. ;---->    ILPRT: INLINE PRINT OF MSG
  2031. ;
  2032. ;THE CALL TO ILPRT IS FOLLOWED BY A MESSAGE,
  2033. ;BINARY 0 AS THE END.  BINARY 1 MAY BE USED TO
  2034. ;PAUSE (MESSAGE 'PRESS RETURN TO CONTINUE')
  2035. ;
  2036. ILPRT     PROC    NEAR
  2037. ILPLP:    MOV    AL,BYTE PTR[BX]
  2038.     OR    AL,AL           ;END OF MSG?
  2039.     JNZ    L00130
  2040.     JMP    ILPRET          ;..YES, RETURN
  2041. L00130:    CMP    AL,1            ;PAUSE?
  2042.     JNZ    L00131
  2043.     JMP    ILPAUSE         ;..YES
  2044. L00131:    CALL    CTYPEZZ         ;TYPEZZ THE MSG
  2045. ILPNEXT:
  2046.         PUSHF
  2047.     INC    BX
  2048.     POPF                    ;TO NEXT CHAR
  2049.     JMP    ILPLP           ;LOOP
  2050. ;
  2051. ;PAUSE WHILE TYPING HELP SO INFO DOESN'T
  2052. ;    SCROLL OFF OF VIDEO SCREENS
  2053. ;
  2054. ILPAUSE:
  2055.     PUSH    BX
  2056.     MOV    BX,OFFSET MSG19
  2057.     CALL    ILPRT           ;PRINT:
  2058.     POP    BX
  2059.     CALL    KEYIN           ;GET ANY CHAR
  2060.     CMP    AL,'C'-40H      ;REBOOT?
  2061.     JNZ     L09132        ;EXIT IF QUITCHAR
  2062.     JMP    EXIT
  2063. L09132:    CMP    AL,'I'-40H    ;ALT REBOOT?
  2064.     JNZ    L00132        ;
  2065.     JMP    EXIT            ;YES.
  2066. L00132:    JMP    ILPNEXT         ;LOOP
  2067. ILPRET:    RET                     ;PAST MSG
  2068. ILPRT    ENDP
  2069. ;
  2070. ;---->    PRTMSG: PRINTS MSG POINTED TO BY (DE)
  2071. ;
  2072. ;A '$' IS THE ENDING DELIMITER FOR THE PRINT.
  2073. ;NO REGISTERS SAVED.
  2074. ;
  2075. PRTMSG    PROC    NEAR
  2076.            MOV    CL,PRINT        ;GET BDOS FNC
  2077.     JMP    BDOS            ;PRINT MESSAGE, RETURN
  2078. PRTMSG    ENDP
  2079. ;
  2080. ;---->    ERXIT: EXIT PRINTING MSG FOLLOWING CALL
  2081. ;
  2082. ERXIT    PROC    NEAR
  2083.           POP    BX              ;GET MESSAGE
  2084.     CALL    PRTMSG          ;PRINT IT
  2085.     CALL    CKDIS           ;DISCONNECT?
  2086.     JMP     EXIT            ;RETURN TO PC DOS       
  2087. ERXIT    ENDP
  2088. ;
  2089. ;MOVE 128 CHARACTERS
  2090. ;
  2091. MOVE128 PROC      NEAR
  2092.     MOV    CH,128          ;SET MOVE COUNT
  2093. ;
  2094. ;MOVE FROM (HL) TO (DE) LENGTH IN (B)
  2095. ;
  2096. MOVE:    MOV    AL,BYTE PTR [BX] ;GET A CHAR
  2097.     XCHG    BX,DX
  2098.     MOV    [BX],AL
  2099.     XCHG    BX,DX           ;STORE IT
  2100.     PUSHF
  2101.     INC    BX
  2102.     POPF                    ;TO NEXT "FROM"
  2103.     PUSHF
  2104.     INC    DX
  2105.     POPF                    ;TO NEXT "TO"
  2106.     DEC    CH              ;MORE?
  2107.     JZ    L00133
  2108.     JMP    MOVE            ;..YES, LOOP
  2109. L00133:    RET                     ;..NO, RETURN
  2110. MOVE128    ENDP
  2111. ;
  2112. BDOS    PROC    NEAR
  2113.     PUSH    BX
  2114.     PUSH    CX
  2115.     PUSH    DX
  2116.     MOV    AH,CL        ;MOVE FNC FOR PC DOS
  2117.     INT     21H            ;INVOKE MS-DOS        
  2118.     POP    DX
  2119.     POP    CX
  2120.     POP    BX
  2121.     RET
  2122. BDOS    ENDP
  2123. ;
  2124. BADOPT:    CALL    TYPEZZ
  2125.     PUSH    BX
  2126.     MOV    BX,OFFSET MSG25
  2127.     CALL    ILPRT
  2128.     POP    BX
  2129. HELP:    PUSH    BX
  2130.     MOV        BX,OFFSET MSG26
  2131.     CALL     ILPRT
  2132.     POP    BX
  2133.     JMP    copyrt
  2134. EXAM:    PUSH    BX
  2135.     MOV     BX,OFFSET MSG27
  2136.     CALL    ILPRT
  2137.     POP    BX
  2138.     JMP    copyrt
  2139. ;
  2140. ;  Print Limited license with "HELP" request output
  2141. ;
  2142. copyrt:    CALL    STAT
  2143. ;
  2144. ;    CLEAR THE SCREEN (cursor = 1,1)
  2145. ;
  2146. ;
  2147. ;    PRINT COPYRIGHT NOTICE  AND PAUSE 
  2148. ;
  2149.     mov    bx,offset msg00 ;point to copyright notice
  2150.     call    ilprt        ; go print it (PAUSE)
  2151. ;
  2152. ;    RETURN TO CALLER 
  2153. ;
  2154.     jmp    exit
  2155. ;
  2156. Comm_Buffer    Label    Word
  2157. ;
  2158. ;
  2159. MODEM   ENDS
  2160.     SUBTTL    'MODIFICATION HISTORY AND CREDITS'
  2161.     PAGE
  2162. ;
  2163. ;* * * * * * * * * * * * * * * * * * * * * * * * *
  2164. ;*                         *
  2165. ;*   THIS PROGRAM DOCUMENTED IN "MODEM.DOC"     *
  2166. ;*                         *
  2167. ;* * * * * * * * * * * * * * * * * * * * * * * * *
  2168. ;* THIS PROGRAM WAS "MODEM.ASM" BUT and then was * 
  2169. ;* TEMPORARILY NAMED "MODEM2.ASM" SO PEOPLE     *
  2170. ;* WILL REALIZE IT IS AN ENHANCEMENT OF         *
  2171. ;* THE ORIGINAL PROGRAM "MODEM.ASM" ON CP/M     * 
  2172. ;* USER'S GROUP DISK 25.             *
  2173. ;* * * * * * * * * * * * * * * * * * * * * * * * *
  2174. ;
  2175. ;PLEASE PASS ON MODS, BUGS, ETC, SO YOUR
  2176. ;FIXES OR ENHANCEMENTS MAY BE SHARED BY ALL,
  2177. ;
  2178. ;Please send to the bottom name on the list,
  2179. ;    OR TO ALL OF US - if you can afford
  2180. ;              the time
  2181. ;
  2182. ;    Ward Christensen
  2183. ;    688 E. 154th St. #5D
  2184. ;    Dolton, Il. 60419
  2185. ;
  2186. ;    (312) 849-6279
  2187. ;
  2188. ;You may send a self-addressed stamped postcard
  2189. ;to be informed of changes/bugs as they become
  2190. ;known.     [CP/M Version]
  2191. ;
  2192. ;
  2193. ;
  2194. ;       05/08/82
  2195. ;Modified for CP/M 86 and the IBM PC 
  2196. ; by Randy Suess
  2197. ;    5219 Warwick
  2198. ;    Chicago, Ill 60641
  2199. ;    312-545 7535
  2200. ;
  2201. ;       06/03/82
  2202. ;Modified for PC DOS and the IBM PC
  2203. ;by Rick Mallinak
  2204. ;   22451 Franklin Dr.
  2205. ;   Richton Park, Ill 60471
  2206. ;   (312) 481-6459
  2207. ;
  2208. ;    08/11/82
  2209. ;Repaired for PC DOS 1.1 and IBM PC
  2210. ;by John Chapman
  2211. ;   844 S. Madison St.
  2212. ;   Hinsdale Illinois 60521
  2213. ;   (312) 325-3081
  2214. ;                 CS: 70205,1217
  2215. ;
  2216. ;  
  2217. ;
  2218. ;       --------------------
  2219. ;       MODIFICATION HISTORY
  2220. ;    --------------------
  2221. ;
  2222. ;    09/23/77
  2223. ;ORIGINALLY WRITTEN BY WARD CHRISTENSEN
  2224. ;
  2225. ;    04/26/79
  2226. ;REWRITTEN BY WARD CHRISTENSEN TO COMBINE
  2227. ;IMPROVEMENTS TO THE ORIGINAL MADE BY WARD
  2228. ;AND BY KEITH PETERSEN, W8SDZ, AND SUGGESTIONS
  2229. ;BY JIM BELL WHICH KEITH IMPLEMENTED.  SEE
  2230. ;MODEM.DOC FOR ADDITIONAL HISTORICAL
  2231. ;INFORMATION AND DOCUMENSATION.
  2232. ;
  2233. ;    05/09/79
  2234. ;ALLOW 'T' AND 'E' SUB-OPTIONS TO GO TO TERMINAL
  2235. ;OR ECHO MODEM AFTER TRANSFERRING A FILE.  (WLC)
  2236. ;
  2237. ;    05/22/79
  2238. ;ADD FEATURE TO MAKE RECEIVE FILE ROUTINE SAY
  2239. ;FILE SUCCESSFULLY OPENED, WHEN IN QUIET MODE.
  2240. ;MOVE INITIAL GOBBLE GARBAGE INPUTS TO BEFORE
  2241. ;COMMAND CPI'S SO ALL MODES ARE CLEARED. CHANGE
  2242. ;INITIAL SEND WAIT TO 80 SECS TO ALLOW MORE TIME
  2243. ;FOR RECEIVING END TO COME UP. ADD 'H' AFTER MSG
  2244. ;THAT SHOWS NUMBER OF SECTORS IN EXTENT ABOUT TO
  2245. ;BE SENT.  (KBP)
  2246. ;
  2247. ;    05/24/79
  2248. ;FIX MISSING RETURN INSTRUCTION AT END OF
  2249. ;INITIALIZATION ROUTINE.  (KBP)
  2250. ;
  2251. ;    07/13/79
  2252. ;PUT IN RESET OF DMA ADDR TO 80H AFTER
  2253. ;FILE RECEIVE, BECAUSE "SUBMIT" UNDER CP/M
  2254. ;DOESN'T RESET IT BEFORE READING THE
  2255. ;NEXT SUBMITTED COMMAND. /// ALSO DELETE
  2256. ;CODE FOR "CANCEL" AS IT'S JUST TOO EASY
  2257. ;TO INTENTIONALLY GET A CANCEL AS A
  2258. ;GARBAGED LINE CHARACTER.
  2259. ;
  2260. ;
  2261. ;
  2262. ;           05/82
  2263. ;    
  2264. ;Rewritten for CP/M-86 by Randy Suess
  2265. ;Changes mainly to interface with 
  2266. ;the CP/M-86 BDOS services 
  2267. ;
  2268. ;        06/82
  2269. ;
  2270. ;Randy's version altered by Rick Mallinak
  2271. ;to be acceptable to PC/DOS assembler.
  2272. ;Comments added and changes made to
  2273. ;support multiple segment version
  2274. ;
  2275. ;           08/82
  2276. ;
  2277. ;Rick's PC/DOS version reworked
  2278. ;to: a) Run as a .COM file by
  2279. ;returning to single segment image;
  2280. ;b) terminal bugs repaired,; c) code
  2281. ;added to 'bring up' DTR as program
  2282. ;starts up [necessary for non-autodial
  2283. ;commercial modems].
  2284. ;
  2285. ;    01/84
  2286. ;
  2287. ;Version 3.3 of modem for the RAINBOW was 
  2288. ;converted from the IBM-PC implementation by
  2289. ;Jim Colombo, DEC - RAINBOW SOFTWARE GROUP 
  2290. ;with the additional feature of specifing the
  2291. ;baud rate on the command line. Version 3.3.1
  2292. ;changes the way modem sends character using the
  2293. ;IOCTL function. The Transmitter now uses function
  2294. ;10 (Send character, return is unsuccessful) and 
  2295. ;the character is queued if the character wasn't
  2296. ;sent.
  2297. ;
  2298. ;
  2299. ;    10/84
  2300. ;Version 3.3.2 fixes bug with sending files less
  2301. ;than 15 sectors in length. If the MS/DOS sequential
  2302. ;read (INT 21H, AH = 14H) function returns a partial
  2303. ;read error (3), then that sector must also be sent!
  2304. ;Also fixed bug with KEYIN trashing the BX register.
  2305. ;
  2306. ;    10/84
  2307. ;Version 3.3.3 Added improved control of DTR on exit and cleaned
  2308. ;up comments.
  2309. ;
  2310. ;    01/18/85
  2311. ;Version 3.3.4 Reset comm port to NVM values on exit. 
  2312. ; Marshall Goldberg.
  2313. ;
  2314.  
  2315.     END     MAIN
  2316.